Passwortfrage - Textfeld leert sich nicht-

habe folgende Prozedur:

Private Sub UserForm_Initialize()

PwTextBox.Text = ""
PwTextBox.PasswordChar = "*"

End Sub

Private Sub PwButton_Click()

Const pw = "schutz"

If PwTextBox.Text = pw Then
PasswortBox.Hide
Application.Run "hinzufügen"
Else
MsgBox "Sorry, falsches Passwort!", vbOKOnly, "Fehler"
PasswortBox.Hide
Exit Sub
End If

End Sub

Es steht bei jedem erneuten Aufruf das Passwort noch im Textfeld. Wie kann ich das abstellen?

Vielen Dank schon mal.