طلب مساعدة فى عدم مسح محتويات الحقول

اريد عندما اكتب فى text box للمرة الثانية ان يرفض التغيير اى لا يسمح بمسح محتويات النص الا عن طريق كلمة سر

و قد كتبت الكود التالى

private sub text1_change ()

bchange=true

dim p,t

t= عدم السماح بمسح بياناتحقل معين

p= " ادخل كلمة المرور "

if inputbox (p,t)= dalia then

"ترحيب",vbokonly,"الان يمكنك اجراء التغييرات ",msg box

else

"انذار ",vbokonly,"عفوا لا يمكنك اجراء التغييرات ",msg box

docmd.quit

end if

end sub

و لكنى وجدت مشكلة

1- عندما اكتب لاول مرة فى الحقل فان الرسالة تظهر لى فهو يقراها عند اى تغيير حتى و لو لا يوجد اى عبارات فى textbox

2- عندما اكتب العبارة ثم اغيرها و تظهر الرسالة ثم اكتب كلمة المرور خطأ فانه ينهى البرنامج و عند اعادة فتحه اجد العبارة الجديدة قد ظهرت اى تغير الكلام الموجود فى textbox

3- inputbox لا يعطى علامات النجمة ***** عند كتابة كلمة المرور

هل اجد من يساعدنى