Visual Basic - boton en excel con password

tengo un boton en excel el cual limpia la informacion en un formato, deseo que al darle click primero me pida password como le hago, que codigo le pongo, agradezco su ayuda

EN EL EVENTO CLIK DEL BOTON
DIM PS AS STRING
DIM PS2 AS STRING
PS2="CSDKLL"
PS=InputBox "TECLEE SU PAS"
IF PS =PS2 THEN
COMINZA A LIMPIAR
ELSE

ENDIF
ENDIF

GRACIAS POR LA AYUDA. CUAL SERA EL ERROR EN PS = InputBox "TECLEE SU PAS", ya que me marca uno


Private Sub CommandButton1_Click()
'EN EL EVENTO CLICK DEL BOTON
Dim PS As String
Dim PS2 As String
PS2 = "CSDKLL"
PS = InputBox "TECLEE SU PAS"
If PS = PS2 Then
'COMIENZA A LIMPIAR
'borra el contenido de la hoja 1
Worksheets("internos").Range("B9:F800").ClearContents

'borra el contenido de la hoja 2
Worksheets("externos").Range("B9:F800").ClearContents

Else
'Vuelve a la hoja 1 Rango B9 para cargar mas datos
Worksheets("internos").Range("B9").Activate
End If
End If
End Sub

Ya lo solucione eran unos ( ) que faltaban... gracias