Option Explicit
 
Private Sub Command1_Click()
 
Dim Datei As String
Dim ff As Integer
Dim Zeile As String
Dim arr() As String
 
Datei = "d:\abendwolf\datei.txt"
 
ff = FreeFile
 
Open Datei For Input As ff
Do While Not EOF(ff)
Line Input #ff, Zeile
arr() = Split(Zeile, " ")
MsgBox arr(0)
If arr(0) = "Menü1:" Then
Text1.Text = arr(UBound(arr()) - 1)
End If
If arr(0) = "Menü5:" Then
Text2.Text = arr(UBound(arr()) - 1)
End If
If arr(0) = "Menü9:" Then
Text3.Text = arr(UBound(arr()) - 1)
End If
Loop
Close ff
 
MsgBox "Fertig!"
 
End Sub

EALA FREYA FRESENA