Versuch das doch mal mit einem FSO (File System Object). Da hat man mehr Möglichkeiten. Ich hab da mal ein kleines Beispiel zusammengestellt, alles was du brauchst sind 4 Textfelder und eine .txt Datei in deinem Projektordner mit dem Namen test.txt die mit 4 Zeilen Text gefüllt ist.
Hier der Code:
Option Explicit
Const ForReading = 1 ' Konstanten für Dateizugriff
Const ForWriting = 2
Const ForAppending = 3
Private Sub Form_Load()
Dim fso ' FileSystemObject
Dim textfile ' Dateiobjekt
Dim test() As String 'Stringarray für die einzelnen Zeilen
Dim i As Integer ' Indexvariable
i = 0
'Das FSO wird gesetzt
Set fso = CreateObject("Scripting.FileSystemObject")
'Das Dateiobjekt wird auf die Datei gesetzt
Set textfile = fs
penTextFile(App.Path & "\test.txt", ForReading)
'Schleife bis EOF(End Of File)
Do While textfile.AtEndOfStream <> True
ReDim Preserve test(i) 'Dynamisches vergrössern des Arrays
test(i) = textfile.ReadLine ' eine Zeile lesen
i = i + 1 'Index erhöhen
Loop
textfile.Close 'Datei wieder schließen
Text1.Text = test(0) 'Daten in Textfelder schreiben
Text2.Text = test(1)
Text3.Text = test(2)
Text4.Text = test(3)
End Sub