Ayuda con esta macro

Hola elsa soy pol de bolivia, por favor necesitaría que me puedas dar una manito, te explico he creado un formulario para que pida nombre de usuario y contraseña, pero la verdad no lo puedo hacer correr, y la otra duda es necesito que se presente este formulario lo primero que se vea, en caso que la contraseña sea la correcta pueda ingresar el sistema contable creado, pero que si es incorrecto me pueda dar 3 oportunidad y si se puede que suene una alarma de seguridad ahí va la macro,
Option Explicit
Private Sub CommandButton1_Click()
Dim contraseña As String
Call TextBox2_Change
If (contraseña = "jesus") Then
MsgBox ("BIENVENIDO AL SISTEMA CONTABLE")
Else
MsgBox ("Contraseña incorrecta")
End If
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Private Sub TextBox2_Change()
Dim contraseña As String
If Len(TextBox2) = 5 Then
contraseña = TextBox2
End If
End Sub