suppongo che adesso fai apparire il messaggio semplicemente così:

MsgBox "Password errata!", vbOKOnly, "Errore"

o qualcosa del genere.
Prova invece così:

If MsgBox("errore nella pass", vbOKOnly, "Errore") = vbOK Then
EditUsername.Text = ""
EditPassword.Text = ""
End If

ciao!