Abfrage mit einer InputBox

[wesselo]

Hallo,
ich habe einem Tabellenblatt das folgende Makro zugewiesen (wenn das Blatt geöffnet wird)


Sub Main

Dim Passwort As Integer
Dim antwort AS String


antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort

While Passwort <> 0815
MsgBox ("Ungültiges Passwort")
antwort = InputBox ("Bitte geben Sie Ihr Passwort ein")
Passwort = antwort

Wend

Wie kann ich das Makro sicher machen, wenn die Eingabe nicht der Vorgabe entspricht bzw. der Abbruch-Button betätigt wird?
Das Passwort soll eine Zahl sein und 4 Ziffern haben.

Danke für euere Hilfe
Markus