Ayuda! Contraseña en botón macros

[Claussqfi33]

Buen día, soy novata en macros, pero estoy realizando un proyecto en el cual realizo exámenes para distintas areas de mi trabajo, realicé un examen de falso y verdadero, coloqué un botón en el cual oculta filas y columnas con calificación y respuestas, al presionar el botón añadí  una contraseña para que sólo una persona pueda hacer divha acción, el problema es que al poner la contraseña me acepta cualquier dígito incluso si solo pongo  aceptar en el recuadro. 

Este es el código. Que me falta?

 

Private Sub CheckBox1_Click()

        Dim respuesta

        respuesta = InputBox("Introduce el password ", "Password")

    If LCase(respuesta) = "123" Then
    

    End If
OcultarMostrarFilasColumnas

End Sub

 

[Antoni]

Private Sub CheckBox1_Click()
Dim respuesta as String
respuesta = InputBox("Introduce el password ", "Password")
If LCase(respuesta) = "123" Then
	OcultarMostrarFilasColumnas
End If
End Sub

 

[Claussqfi33]

Muchas gracias!, Resultó bastante bien, hoy mismo pude mostrar mi proyecto y fue muy buena la respuesta con mis colaboradores.