比如以下代码：
public A
Public B

sub XXXX
    A=1
    B=2
    '请问能否编写一个以下功能的函数：
    C=转换("A")
    D=转换("B")
    debug.print C    'C 的结果是 1
    debug.print D    'D 的结果是 2
end sub

function 转换(变量名字符串 as String)
    ???
    ???
    ???
end Function

不知能否实现以上功能 谢谢！