حقيقة أود مساعدتك أفضل مما سوف أقدمه لك الآن ولكن حسب خبرة الضعيفة جدا في عالم البرمجة ولكن سوف أتشجع وآخذ نفس عميق وأكتب لك هذا الكود آمل أن يكون هو المطلوب ,ارجو العذرة مقدما --- تضع زر أمر commond على الفورم ثم تكيب الكود التالي في زر الأمر:
dim x as string
dim z as string
("ادخل الإسم") inputbox =×
("أدخل الرقم السري ") z=inputbox
if x="name"and z="secret number" then
msgbox"welcome"
else
msgbox"ensure correct name and secret number"

ملاحظة : عملية التبديل من الإنجليزي للعربية متعبة نوعا ما لذلك لاحظ الفاصلتين في السطر السادس تأتي في آخر كلمة الترحيب welcome
كذلك في السطر الثامن تأتي الفاصلتين في آخر كلمة الرقم number كذلك مهم جدا في كلمة name و secret number ضع الإسم الذي سوف تدخل به والرقم السر ي الذي تريد كذلك الدخول به وأنا ماكتبته عشان لاتحسب إنه ضروري بل هو من إختيارك ضع ما شئت والله الموفق،،،،،وأي أستفسار أقدر عليه فلن أبخل عليك

أخوي زبير أضف سطر أخير وهو قفل جملة إف كالتالي :
End If