Private Sub Form_Load()
  <font color=green>' Pfas lesen</font>
  Dim sPath As String
  sPath = GetSetting("MyApplication", "Pfad", "Start", "")
  If sPath = "" Then
    <font color=green>' kein Pfad gespeichert</font>
    sPath = VBEX_SetAPath()
    If sPath <> "" Then
      SaveSetting "MyApplication", "Pfad", "Start", sPath
    Else
      End
    End If
  End If
End Sub