Textfeld in Message Box ausblenden?

mit foldendem Code frage ich beim Start meiner Datei ein Passwort ab:

Dim sWort As String
sWort = InputBox( _
prompt:="Passwort:", _
Title:="Sicherheitsabfrage", _
Default:="")
If sWort <> "passwort" Then
Beep
MsgBox "Das eingegebene Kennwort ist falsch", _
vbOKOnly, " Loginfehler! "

ThisWorkbook.Close savechanges:=False

Else

Leider erscheint das Passwort bei der Eingabe im Textfeld. Ist es möglich statt dessen Sternchen zu zeigen, oder die Eingabe ganz auszublenden (z.B. das Textfeld ausblenden)?

Gruß
Matthias