Palavra Passe

boas.
tenho o seguinte codigo para pedir palavra passe:

Dim strResposta As String
strResposta = InputBox("Digite a Palavra Passe...", "Palavra Passe", _
"", 8000, 4000)
Select Case strResposta
Case Is = ""
DoCmd.CancelEvent
Case Is = "123"

DoCmd.OpenForm "Gestão"
Exit Sub
Case Else
MsgBox "Palavra Passe Incorreta...", vbCritical
DoCmd.CancelEvent
End Select

funciona perfeitamente, apenas quero que quando vou a escrever a palavra passe ela me apareça do tipo password e nao texto
alguem sabe como o fazer?

Boa tarde

Copie e cole num novo modulo
-----------------------------------------
Public Function InputBoxDK(Prompt As String, Optional Title As String, Optional Default As String, _
Optional Xpos As Long, Optional Ypos As Long, Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

End Function

-------------------------------------------

Depois altere o se código para

Dim strResposta As String
strResposta = InputBoxDK("Digite a Palavra Passe...", "Palavra Passe", _
"", 8000, 4000)
Select Case strResposta
Case Is = ""
DoCmd.CancelEvent
Case Is = "123"

DoCmd.OpenForm "Gestão"
Exit Sub
Case Else
MsgBox "Palavra Passe Incorreta...", vbCritical
DoCmd.CancelEvent
End Select

dá o seguinte erro:
"Sub ou Function nao defenido"

Joaquim

Quer postar a BD, pode ser só a parte em questão ?

ok!!

Eu tento criar meu próprio InputBox, aqui vai um exemplo:

NOTA: extrai o arquivo inteiro antes de executar o BD

Teste