Cita:
Iniciado por culd 
Código:
Dim CanalLibre As Integer
CanalLibre = FreeFile
Open rutaARCHIVOtxt For Input As #Canal
Line Input #Canal, Text1.Text
Close #Canal
Bueno, ese código daría error ya que no se puede asignar directamente el valor a un control, debe ser a través de una variable. Aún así solamente leería la primera línea del archivo.
Otro método:
Open "c:\NombreArchivo.txt" For Input As #1
Text1.Text = Input(LOF(1), #1)
Close #1 