Dim F As Integer
Dim sLine As String
Dim sHeader As String
Dim sData() As String
 
F = FreeFile
Open "TExtdatei.txt" For Input As #F
Line Input #F, sHeader
 
With Grid1
  .LockUpdate True
  .DataMode = MODE_LIST
 
  While Not Eof(F)
    Line Input #F, sLine
    Grid1.AddItem sLine
  Wend
 
  sData = Split(sHeader, vbTab)
  For i = 0 To UBound(sData)
    .Columns(i + 1).Caption = sData(i)
  Next i
  .LockUpdate False
  .Refresh
End With
 
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de