Hola, para leer variables desde un archivo podrias hacer algo asi...
tot = Len(Text1) ' toma el largo de caracteres de text1
For i = 1 To tot ' ciclo para ver caracter por caracter
dato = Mid(Text1, i, 1) 'se guarda en dato el caracter en la 1era posicion
If dato = "#" Then 'verifica si el caracter es el comodin de la variable
Text2 = Mid(Text1, i + 1, tot) 'guarda en text2 el contenido de la variable
Text3 = Mid(Text1, 1, i - 1) 'guarde en text3 el nombre de la variable
End If
Next
el ejemplo es para usarlo con datos como : MiVariable#Datos de la variable
espero te sirva

salu2