Dim F As Integer
Dim sLine As String
Dim vData As Variant
 
F = FreeFile
Open "Textdatei.txt" For Input As #F
While Not Eof(F)
  Line Input #F, sLine
  vData = Split(sLine, "*")
  If IsArray(vData) Then
    If UBound(sData) = 3 THen
      Text1.Text = Text1.Text & sLine & vbCrLf
    End If
  End If
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de