اريد اضافة بسيطة على هذا الكود ( حماية )

السلام عليكم ورحمة الله وبركاتة

إليكم هذا الكود ومن ثم الطلب :

Private Sub ÃãÑ12_Click()

On Error GoTo err_displaydatabasewindow_click

Dim rr As Integer

Dim ss As Integer

rr = InputBox("ÇáÑÌÜÜÇÁ... ÃÏÎÜá ßáãÜÉ ÇáãÜÑæÑ ÇáÎÇÕÉ ááÏÎæá Çáì áæÍÉ ÇáÊÍßã ÇáÑÆíÓíÉ")

If rr = 15901 Then

DoCmd.OpenForm "control"

Else

ss = MsgBox("!!..")

End If

Exit_displaydatabasewindow_click:

Exit Sub

err_displaydatabasewindow_click:

MsgBox Err.Description

Resume Exit_displaydatabasewindow_click

End Sub

ممكن الكود ليس واضحا بسبب الرموز لكن هذة الرموز هي كلمات عربية

هذا الكود خاص بزر عند النقر يطلعلي مسج ومضمونة (ادخل كلمو المرور) لكن كلمة المرور اريدها ان تظهر على شكل نجوم هل ممكن هذا الشئ .

تحياتي