Text1 = x vecchia pwd
Text2 = x nuova pwd
Text3 = x conferma nuova pwd
Ammesso che la vecchia pwd sia "PASSWORD" (cm da tuo esempio), devi fare così:
codice:
old_pwd = "PASSWORD"
If text1.text = old_pwd then
if text2.text = text3.text then
'nuova pwd confermata
new_pwd = text2.text
end if
end if
Al di fuori di ogni sub devi dichiarare:
codice:
dim old_pwd as String
dim new_pwd as String
Nella tua routine devi scrivere:
codice:
Password = UCase(InputBox("Password:"))
If Password = new_pwd Then
mnuOggetti.Enabled = True
Else
Password = ""
MsgBox "Password Sbagliata"
End If
Cmq concordo totalmente con ciò scritto da Oregon..