Oppure prova cosi'

dim risposta as string
risposta=MsgBox "Password Errata ritentare l'inserimento",vbyesno,app.exename
if risposta=vbyes then
txtPassword=""
txtUtente=""
txtPassword.setfocus
else
exit sub
end if