Hey, cada dia creo que soy mas torpe en el textbox puse esto (en el codigo).
Private Sub Form_Load()
Dim direccion As String
direccion = "C:\Users\Adrián\Desktop\datos.txt"
TextBox4 = ""
Open direccion For Input As #1
While Not EOF(1)
Line Input #1, Linea
TextBox4 = Linea
End While
Close()
End Sub
Yo cambie text1 por textbox4 porque supuse que como es otra version cambia el nombre de los objetos y ademas me cambia automaticamente Wend por End While. Pero ahora me da varios errores.
Errores:
http://img842.imageshack.us/i/228201014881.jpg/ACA TENES EL CODIGO DEFINITIVO :3
Private Sub Form_Load()
Dim direccion As String
direccion = "C:\Users\Adrián\Desktop\datos.txt"
Text4 = ""
Open direccion For Input As #1
While Not EOF(1)
Line Input #1, Linea
Text4 = Linea
Wend
Close
End Sub
Suerte
Tus errores:
Text
Box4 = ""
Text
Box4 = Linea
te sobra el "Box"