Dim Buffer1 As String, Buffer2 As String
Dim CanalLibre As String
 
 
    'Abre el archivo y lee el texto.
    CanalLibre = FreeFile
    Open "c:\tu_archivo.txt" For Input As CanalLibre
        Do While Not EOF(CanalLibre)
            Line Input #CanalLibre, Buffer1
            Buffer2 = Buffer2 & Buffer1 & vbCrLf
        Loop
    Close CanalLibre
 
    'Poner el texto en el Textbox
    Text1.Text = Buffer2