Duda con txt

[Nessito]

Hola, estoy empezando con vb y tengo unad duda que no doy solucionado. En un form tengo un textbos y un command button. Yo quiero que al darle al command button me aparezca en el textbox un texto k esta guardada en un archvio .txt. Entonces en el codigo del command button pongo:

Private Sub Command1_Click()
Open "C:\yo.txt" For Input As #1
Dim texto
Text1.Text = texto
Input #1, texto
Close #1
End Sub

Supongo que es una tontería lo que va mal pero es que le di muchas vueltas a la cabeza y nada.

Salu2

[Jareth]

Código [Seleccionar] Expandir


Open "C:\yo.txt" For Input As #1
Dim texto as string
texto = Input(LOF(1), #1)
Close #1
text1.text=texto

Espero que te sirva.
Saludos.

[Nessito]

Código [Seleccionar] Expandir


Open "C:\yo.txt" For Input As #1
Dim texto as string
texto = Input(LOF(1), #1)
Close #1
text1.text=texto

Espero que te sirva.
Saludos.

Me funciono, muchas gracias.

[Nessito]

El codigo que puso Jareth funciona bien solo que si escribes dos lineas te pone las dos juntas. Pero ya le encontré solución 

Private Sub Command1_Click()
Open "C:\yo.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
Text1.Text = texto
End Sub

Así solo te lee la primera línea y si quiers que lea más olo tienes que añadir más variables

[Sancho.Mazorka]

Nessito usa el "Insertar Codigo", y no te iba a funcionar nunca xq primero asignabas el texto al textbox y luego lo cargabas a la variable:

Código [Seleccionar] Expandir

Text1.Text = texto
Input #1, texto
y era asi:

Código [Seleccionar] Expandir

Input #1, texto
Text1.Text = texto


Sancho.Mazorka