Alô Vaca! Eu já consegui fazer, estava esquecendo de concatenar as informações, mais agora eu consegui. Eu usei este código para resolver.
Dim teste As String
Text2.Text = ""
Open App.Path & "/" & mmeess & ".txt" For Input As #1
Do Until EOF(1)
Line Input #1, teste
If Text2.Text <> "" Then
Text2.Text = Text2.Text & vbCrLf & teste
Else
Text2.Text = teste
End If
Loop
Close #1
Más de qualquer forma, valeu o interesse !
