<code>Private Sub cmdFillGrid_Click()
  <font color=green>' Datei auslesen und in Flexgrid übertragen</font>
  Dim F As Integer
  Dim sLine As String
  Dim sData() As String
 
  With MSFlexGrid1
    .Rows = 1
    .Cols = 3
 
    <font color=green>' Spaltenüberschriften</font>
    .Row = 0
    .Col = 0: .Text = "Name"
    .Col = 1: .Text = "Vorname"
    .Col = 2: .Text = "Ort"
 
    <font color=green>' Datei öffnen und einlesen</font>
    F = FreeFile
    Open "DeineDatei.txt" For Input As #F
    While Not EOF(F)
 
      <font color=green>' Zeile einlesen</font>
      Line Input #F, sLine
 
      <font color=green>' Zeile splitten</font>
      sData = Split(sLine, "|")
 
      <font color=green>' Daten ins Grid übertragen</font>
      .Rows = .Rows + 1
      .Row = .Rows - 1
      .Col = 0: .Text = sData(0)
      .Col = 1: .Text = sData(1)
      .Col = 2: .Text = sData(2)
    Wend
    Close #F
  End With
End Sub</code>