Visual Basic - Problema con sacar valor de un variable

Que tal, tengo este problema necesito alguna funcion para sacar el valor de una variable que se encuentra en una variable. me esplico mejor con el siguiente ejemplo:

A = "VDTRA", y VDTRA vale 15

Valor = algunafuncion(A) y que el resultado de valor sea 15

Espero algun comentario o ayuda... muchas gracias

Dicha función, no existe. Pero puedes generarla tu. Algo como esto:

Function AlgunaFuncion(A as String) as Variant
Dim Res as Variant
Select Case A
Case "Var1" Res = Var1
Case "Var2" Res = Var2
Case "Algo" Res = Algo
...
Case Else Res = Nothing
End Select
Return Res
End Function

Espero que te sirva.

Saludos.

No le encuentro sentido al pasar una variable a otra y que dé el mismo resultado.

Para eso declaras la variable como pública y ya la tienes disponible para todo el proyecto.

Pero bueno, mira esto

Private Sub Command1_Click()
Dim VDTRA As Long, A As Long
VDTRA = 15
A = MiFuncion(VDTRA)
MsgBox A
End Sub

Private Function MiFuncion(ByVal Variable As Long) As Long
MiFuncion = Variable
End Function