OBTENER VALOR DE VARIABLE DESDE UN STRING

[almormir]

Hola a tod@s,

Estoy intentando hacer una FUNCION en VB6 que haga esto:
Dim a as String
a="Hello"
msgbox FUNCION("a") ==> "Hello"

Donde el pararametro que se le pase a la funcion sea un string con el nombre de variable de la cual queremos obtener su valor.

Muchas gracias de antemano por ayudarme.

Saludos.

[E N T E R]

Código: (VB) [Seleccionar]

Public Function xObtener(ByVal xVar As String) As String

    xObtener = xVar
   
End Function


Private Sub Command1_Click()
   
    MsgBox xObtener("hola")
   
End Sub

Ojala te sirva

[seba123neo]

vos queres usar el "nombre string" de la variable, para eso esta la funcion CallByName

Código: (VB) [Seleccionar]

Option Explicit

Public vVar1 As String
Public vVar2 As String
Public vVar3 As String

Private Sub Form_Load()
    vVar1 = "Soy el valor de la variable vVar1"
    vVar2 = "Soy el valor de la variable vVar2"
    vVar3 = "Soy el valor de la variable vVar3"
   
    MsgBox CallByName(Me, "vVar1", VbGet)
    MsgBox CallByName(Me, "vVar2", VbGet)
    MsgBox CallByName(Me, "vVar3", VbGet)
End Sub
esto se puede usar para los nombres de los metodos tambien, por lo que vi las variables deben ser public si o si, sino no funciona.

saludos.

[almormir]

GRACIAS SEBA123NO
ES LO QUE ESTABA BUSCANDO.

SALUDOS.