Pues esto es lo que utilizo yo, y encima un "control" con una variable, que hace que si el usuario se equivoca mas de una vez en poner la contraseña, le diga cositas
Option Explicit
Public contrasenya As Boolean
Dim ContadorContr As Integer
Private Sub cmdCancel_Click()
contrasenya = False
Me.Hide
End Sub
Private Sub CmdOK_Click()
'comprobar si la contraseña es correcta
If txtPassword = "METALMEDIA" Then
contrasenya = True
Me.Hide
Else
MsgBox "No sabes la contrasenya? Pues tendras que jugar a Metalmedia hijo :3 ", vbInformation
ContadorContr = ContadorContr + 1
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
If ContadorContr > 3 Then
MsgBox "La contrasenya no es ninguna palabrota ni cochinada ¬¬", vbInformation
If ContadorContr > 4 Then
MsgBox "No entiendo lo que escribes, lo estas intentando en Binario o que? :D", vbAbortRetryIgnore
End If
End If
End Sub
Frikimaster