Dim FsObject As Object
Dim TsObject As Object

Path = App.Path & "\file.txt"
Set FsObject = CreateObject("Scripting.FileSystemObject")
Set TsObject = FsObject.OpenTextFile(Path, 1, 0)

Do While Not TsObject.atendofstream
stringa = TsObject.Readline
elemento = Split(stringa, " ")
Text1.Text = elemento(0) & " " & elemento(1)
Loop
TsObject.Close
End Sub


Facile e moooooolto funzionale !