Private Sub Form_Load()
  Dim strPath As String
  Dim strFile As String
 
'Zeilen-/Spaltenanzahl im Grid zurücksetzen:
  With Me.MSHFlexGrid1
    .Rows = 0
    .Cols = 0
  End With
 
'Trennzeichen festlegen:
  optSeparator_Click 3
 
'Pfad ermitteln:
  strPath = App.PATH
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
 
  strFile = strPath & "DateifürFlex.txt"
'Überprüfen, ob die Datei überhaupt existiert...
  If Len(Dir(strFile, vbNormal)) <> 0 Then
    'Daten aus Datei einlesen:
    LoadGridData Me.MSHFlexGrid1, strFile, m_strSep
  End If
  MSHFlexGrid1.ColAlignment = flexAlignLeftCenter
 
End Sub