Buton şifrelerinin görünmesi

Sayın Hocalarım,

Butonlara koyduğum şifrelerde, şifre yazılırken ne yazdığımı herkes görüyor. Bunu numara yerine veya metin yerine *** gibi görünmesini sağlayabilirmiyiz. Örnek kodu aşağıda görebilirniz. Şifre de 123
YARDIMLARINIZ İÇİM ŞİMDİDEN TEŞEKKÜRLER.

Private Sub TKLF_Click()
Dim Celoyce As String
Celoyce = InputBox("Burayı Açmak için Lütfen Şifre Girin.", "Şifre Ekranı")
If Celoyce = "123" Then
' MsgBox "Şifre Tamam ", vbOKOnly, "İkaz"
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Teklifler"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox ("Hatalı Şifre")
End If

End Sub

<a href="https://accesstr.net/konu-inputbox-ta-password-karakteri-kulanma.html">İnputbox ta Password Karakteri Kulanma</a>

konusunu inceleyiniz.