Codice per modifica password

[MdE2005]

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ì:

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:

dim old_pwd as String
dim new_pwd as String

Nella tua routine devi scrivere:

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..