If App.PrevInstance = True Then
    Open App.Path & "\options.txt" For Output As #1
    Close #1
    End
End If

Public Sub CheckOptions()
'Check ob Optionen geöffnet werden sollen
 
    On Error Resume Next
 
    Open App.Path & "\options.txt" For Input As #2
    Close #2
 
    If Err.Number = 0 Then
        Kill App.Path & "\options.txt"
        Form2.Show
    End If
End Sub