Visual Basic - Documentos

Holas...Veran tengo un fichero.txt del cual necesito sacar el contenido y almacenarlo en una variable....

Salu2

Fijate con:

MiVariable = FileToString("Miarchivo.txt")

La función para pasar un archivo a un String es:

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler

Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

Exit Function

ErrorHandler:
FileToString = Empty
End Function