Ocultar password

Luis:
Buenos días, mira tengo el siguiente código que si funciona en un UserForm, lo que requiero es que no se vea la clave o el password cuando lo tecleo, pero no se como controlar el InputBox, la otra seria traer otro UserForm, pero no tengo idea de como hacerlo, te pongo el código, podrías orientarme por favor y si puedes explicarme también te agradeceré para ir aprendiendo.
Private Sub CommandButton1_Click()
    Dim respuesta As String
    respuesta = InputBox("Introduce el password", "Password")
    If LCase(respuesta) <> "liro-liro" Then
        Hoja4.Activate
        Hoja3.Visible = xlSheetVeryHidden
        ActiveSheet.Protect "snoopy"
    Else
        Hoja3.Visible = True
        Hoja3.Activate
    End If
End Sub
Private Sub CommandButton2_Click()
Dim respuesta As String
    respuesta = InputBox("Introduce el password", "Password")
    If LCase(respuesta) <> "lero-lero" Then
        Hoja4.Activate
        Hoja1.Visible = xlSheetVeryHidden
        ActiveSheet.Protect "snoopy"
    Else
        Hoja1.Visible = True
        Hoja1.Activate
    End If
End Sub
Private Sub CommandButton3_Click()
    Dim respuesta As String
    respuesta = InputBox("Introduce el password", "Password")
    If LCase(respuesta) <> "jda-jda29" Then
        Hoja4.Activate
        Hoja2.Visible = xlSheetVeryHidden
        ActiveSheet.Protect "snoopy"
    Else
        Hoja2.Visible = True
        Hoja2.Activate
    End If
End Sub
Saludos Cordiales Jesús Alamilla