Bom dia

estou sando o código VBA abaixo para salvar a planilha usando a senha, entretanto quando digito a mesma, fica aparecendo as letras. como faço para que apareça apenas os asteriscos ********

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Senha As String
Senha = "onasus"

If InputBox("Digite a senha para Salvar", "Proteção - Contabilidade") = Senha Then
Exit Sub
Else
If SaveAsUI = True Then
MsgBox "Não é permitido Salvar Como"
Cancel = True
Exit Sub
End If
If SaveAsUI = False Then
MsgBox "Não é permitido ‘Salvar"
Cancel = True
Exit Sub
End If
End If
End Sub