Конечно, могу, дарагой!
Пиши:
Local Var1$="Var2"
Global Var2$="name"
Print Fun1(Var1$)
WaitKey()
End
Function Fun1$(VarName$)
If Upper$(VarName$)="VAR2" Then Return Var2
End Function
Работает аки часы. )
Еще раз повторяю: задача некорректна. Меняй логическую основу алгоритма и не занимайся чепухой.
P.S. Отредактируй подпись. Она не содержит внятной информации и занимает слишком много места.