Ocultar Caracteres de Inputbox

[juancarlosto]

Efectivamente el codigo funciona correctamente en excel, como ejecuntando una macro. Pero cuando lo copio en el codigo de mi programa no me funciona. El imputbox se habilita por medio de un boton, el cual pide una contraseña y si es correcta cierra el formato y deja activa la hoja de excel. A continuacion copio los codigos que tengo en el boton.

Private Sub CommandButton6_Click()

If InputBox("Digite Password", "CLAVE DE CONFIGURACION") <> "780530" Then Exit Sub

Unload Me
Sheets("Archivo Plano").Select



End Sub

Y el codigo del form es el siguiente:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then Cancel = True


End Sub

Esto es lo que tengo, por favor ayudemen, si necesitan mas del codigo me informan.

Y gracias a todos los que me han ayudado.