Visual Basic - Rellenar TextBox con archivo txt

Por favor alguien me podria indicar como rellenar un TextbBox con el contenido de una archivo txt. Muchisimas gracias

primero: el TextBox tiene que se multiline,
segundo: lee el archivo usando el método input, para que te tome los retorno de carro tenés que usar Chr(13) & Chr(10) en cada nueva línea.

saludos.

Fijate con esto:

Text1.Text=FileToString("c:\demo.txt")

Public Function FileToString(FileName As String) As String
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

End Function

Y para el proceso inverso (si te sirve)

StringToFile Text1.Text,"c:\demo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function

Estimada Cecilia:
Agradezco tu atencion pero a mi esete codigo no me hace nada, si em puedes echar una mano te lo ruego:
Text1.Text=FileToString("c:\demo.txt")

Public Function FileToString(FileName As String) As String
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

End Function

¿Qué error tienes? puedes colocar la función en un módulo y llamarla desde el formulario.