Dudas con contraseña por asteriscos

Hola Todoexpertos.

tengo un pequeño problema he creado esto para que pida una contraseña pero no se como hacer para que al escribir la contraseña se ponga en asteriscos.

Si me podéis ayudar os lo agradecería.

Private Sub Comando5_Click()
Dim PassOk As String
Dim PassTyped As String
PassOk = "112111"
PassTyped = InputBox("CLAVE DE ACCESO", "Introduce la clave requerida ", "")
If PassTyped <> PassOk Then
MsgBox "La clave de acceso no es valido"
Exit Sub
Else
If VarType(IdUsuario) <> vbNull Then
DoCmd.OpenForm "Usuarios", , , "[IdUsuario] = " & Me.IdUsuario
'DoCmd.OpenForm "Gasto_Entrega_Si_No", , , "[IdGasto] = " & Me.IdGasto
'DoCmd.OpenForm "Nota_Gasto", , , "[IdGasto] = " & Me.IdGasto
End If
End If
End Sub