Dim F As Integer
Dim sLine As String
Dim nPos As Long
 
F = FreeFile
Open "DeineTextDatei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  nPos = InStrRev(sLine, " ")
  If nPos > 0 Then
    sevListBox1.AddItem , Left$(sLine, nPos - 1) & vbTab & Mid$(sLine, nPos + 1)
  End If
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de