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