Private Sub Form_Load()
    Dim sLine As String
    Dim Level As Integer
 
    Open "C:\Windows\Desktop\N.txt" For Input As #1
        While Not EOF(1)
            Line Input #1, sLine
            Daten(Level).Name = InStr(1, sLine, " ")
            Daten(Level).Wert = InStrRev(sLine, " ")
            Level = Level + 1
        Wend
    Close #1
End Sub