Si entras en google o usas el botón de buscar, te sorprenderías de lo que hallarías.   “me salio un verso”     

Option Explicit
 
Private Sub Form_Load()
Dim Cadena As String, CanalLibre As Integer
 
    CanalLibre = FreeFile 'Buscamos un canal libre
 
   Text1.Text = "" 'Limpiamos el TextBox
 
   'Abrimos el archivo para lectura "Input"
    Open "C:\Prueba.txt" For Input As CanalLibre
        Cadena = Input$(LOF(CanalLibre), CanalLibre)
    Close CanalLibre
 
    ' Asignarlo al textbox
    Text1.Text = Cadena
End Sub
 
 

   Puedes comenzar con lo que a manejo de archivo se trata, leyendo esto: http://foro.elhacker.net/index.php/topic,173739.msg825470.html#msg825470

 Editado: Debes modificar lo siguiente en el TextBox que este usando:
              Text1.MultiLine = True
               Text1.ScrollBars = 3
   

 ¡De nada! pungados