Private Sub cmdPass_Click()
    Const Passwort1 = "TEST"
If UCase$(TextBoxPass) = Passwort1 Then
    Unload Passwort
    Optionen.Show
Else
    MsgBox "Das Passwort ist falsch", vbCritical, "Eingabe"
    TextBoxPass.Text = ""
End If
End Sub