ник: snipe
Зачем же для каждой функцию заводить
Public asd as Long
Public dfg as String
Public function GlobalX(StrName as String) as Variant 'для примера StrName="asd"
Select Case StrName
Case "asd": GlobalX=asd
Case "dfg": GlobalX=dfg
....
....
End Select
End Function