حل اظهار كلمة السر بنجوم بدلا من اظهارها

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

عملت زر امر يفتح بكلمة سر بالكود التالي :

pwd:

Me.Caption = "ادخل كلمة السر"

X = InputBox("ادخل كلمة السر")

If X = "shift" Then

ChangeProperty "AllowBypassKey", DB_BOOLEAN, True

Else

DoCmd.Beep

MsgBox " كلمة السر خطأ"

End If

عندما يفتح مربع الباسوورد واكتب الباسوورد وهيا هنا sfift فتظهر الكلمة كما هي وممكن أي حد موجود بجانبي يراها ويعرفها

المطلوب : هو اظهار كلمة السر على اشكال ******************

وشكرا