Private Sub Form_Load()
Dim strPfad As String
 
'Pfad aus Datei einlesen
Open App.Path & "\ABC.ini" For Input As #1
Line Input #1, strPfad
Close #1
 
'Pfad überprüfen
If strPfad = "" Or Dir(strPfad) = "" Then
    einstellungen.Show vbModal
End If
End Sub