Esconder a senha

Olá forum.

No meu sistema, quando clicado para entrar em um dos módulos, o sistema pede senha da seguinte maneira:

Dim senha As String        Dim Registro As Variant            senha = InputBox("Digite a senha: ", "SIG-PRAÇAS")                If senha = " SENHA " Then        frmInclusãodePraças.Show                Else        MsgBox ("Senha incorreta")        End If

Mas a galera que ta em volta acaba vendo a senha que está sendo digitada.

Tem como fazer aqueles asteristicos aparecerem nesse caso?

[]´s