الكتابة في مربع نص فتظهر الاجابة في مربع النص الاخر

في قاعدة البيانات المرفقة لماذا حينما اختار ان اكتب في مربع النص الاول اسم معين وعند الانتقال الى مربع النص الاخر يجب ان يظهر اسم العاصمة كما في الكود ادناه ولا يوجد الحدث الذي يدعم الكود كما في الفيجول بيسك الرجاء التصحيح في حالة الخطأ لانه ممكن التنفيذ في vb6 ونفذته ونجح لماذا لااستطيع تنفيذه في ال vba

Private Sub Text1_Validate(Cancel As Boolean)

If Text1.Text = "iraq" Then

Text2.Text = "baghdad"

End If

End Sub