Dim No As Integer, strLine As String
Open "C:\meinedatei.txt" for input as #no
while not eof(no)
  Line Input #No, strLine
  ' MARKIERUNG
wend
close #no

Dim strsSplitted() As String, i As Integer
' dann bei MARKIERUNG
strsSplitted = Split(strLine, ",")
' Schleife über die durch Komma getrennten Wörter
For i = 0 To Ubound(strsSplitted)
  ' z.B. Ausgabe in ListBox
  List1.AddItem strsSplitted(i)
Next

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.