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