MSFlexGrid1.Cols = 7 'Anzahl der spalten
    MSFlexGrid1.Rows = 13 'Anzahl der Zeilen
        S$ = "<Platz |<Mannschaft |<Spiele |<S |<U |<N |<Tore1 |<Tore2 |<Diff" & _
          "|<Pkt" 'Überschrift in das Grid laden
    MSFlexGrid1.FormatString = S$
 
    MSFlexGrid1.ColWidth(0) = 600 'erste spalte Platz
 
    MSFlexGrid1.ColWidth(1) = 3600 'zweite spalte Mannschaft
 
    MSFlexGrid1.ColWidth(2) = 750 'dritte spalte Spiele
 
    MSFlexGrid1.ColWidth(3) = 500 'vierte spalte Siege
 
    MSFlexGrid1.ColWidth(4) = 500 'fünfte spalte Unentschieden
 
    MSFlexGrid1.ColWidth(5) = 500 'sechte spalte Niederlagen
 
    MSFlexGrid1.ColWidth(6) = 700 'siebte spalte Gschossene Tore
 
    MSFlexGrid1.ColWidth(7) = 700 'achte spalte bekommene Tore
 
    MSFlexGrid1.ColWidth(8) = 600 'neunte spalte Tordifferenz
 
    MSFlexGrid1.ColWidth(9) = 600 'zehnte spalte Punkte
 
 
Open App.Path + "\Tabelle.txt" For Input As #1 'datei öffnene
 
Do While Not EOF(1)   ' Auf Dateiende abfragen.
'DoEvents 'rechenzeit abgeben
 
MSFlexGrid1.AddItem " " 'leere zeile hinzufügen
'es werden dann die eingelesenden daten aus der Textbox in diese
'leerzeilen geschrieben
MSFlexGrid1.RowHeight(zähler) = 350 'Gibt die Höhe der angegebenen Zeile 
' inTwips zurück oder legt sie fest.
 
MSFlexGrid1.Col = 0  'gibt die aktuelle spalte an
MSFlexGrid1.Row = zähler 'gibt die zellen an
Line Input #1, Platz 'liest eine ganze zeile
 
MSFlexGrid1.Text = Platz 'in das grid schreiben
'
MSFlexGrid1.Col = 1  'gibt die aktuelle spalte an
Line Input #1, Mannschaft
MSFlexGrid1.Text = Mannschaft
'
MSFlexGrid1.Col = 2  'gibt die aktuelle spalte an
Line Input #1, Spiele
MSFlexGrid1.Text = Spiele
'
MSFlexGrid1.Col = 3  'gibt die aktuelle spalte an
Line Input #1, S
MSFlexGrid1.Text = S
'
MSFlexGrid1.Col = 4  'gibt die aktuelle spalte an
Line Input #1, U
MSFlexGrid1.Text = U
'
MSFlexGrid1.Col = 5  'gibt die aktuelle spalte an
Line Input #1, N
MSFlexGrid1.Text = N
'
MSFlexGrid1.Col = 6  'gibt die aktuelle spalte an
Line Input #1, Tore1
MSFlexGrid1.Text = Tore1
'
MSFlexGrid1.Col = 7  'gibt die aktuelle spalte an
Line Input #1, Tore2
MSFlexGrid1.Text = Tore2
'
MSFlexGrid1.Col = 8  'gibt die aktuelle spalte an
Line Input #1, Diff
MSFlexGrid1.Text = Diff
'
MSFlexGrid1.Col = 9  'gibt die aktuelle spalte an
Line Input #1, Pkt
MSFlexGrid1.Text = Pkt
 
Line Input #1, Leerzeile
zähler = zähler + 1 'ist für die Zelle erforderlich
 
Loop
End Sub