تعديل في الكود للتحقق من العمر

بعد التحية والتقدير كما هو في العنوان الكود أدناه لفتح ملف Word وتعبئة البيانات فيه ولكن في بعض الحالات يكون عمر المتدرب اقل من 21 سنة باكثر من ستة اشهر ما اريده هو التحقق من العمر حسب تاريخ الميلاد المدخل حتي اليوم ( يعني يوم تعبئة الملف وهو عبارة عن عقد ) فاذا كان العمر من تاريخ الميلاد حتي تاريخ اليوم اكثر من او يساوي 20 سنة و9 أشهر يتم فتح الملف لتعبئة البيانات واذا كان اقل من ذلك تظهر رسالة تفيد بان العمر اقل من 21 سنة

البيانات : حقل تاريخ الميلاد باسم DateofBirth موجود في جدول باسم Students الزر لفتح ملف الـ word موجود في نموذج فرعي باسم fcontract موجود في نموذج رئيسي باسم search fcontract اتمني ان كون وضحت المطلوب ولكم الشكر

Private Sub Command56_Click()
On Error Resume Next
  Set monWd = CreateObject("Word.Application")
   monWd.Documents.Open CurrentProject.Path & "\HDD1.doc"
        monWd.Visible = True
        monWd.ActiveDocument.Bookmarks("Fname").Select
        monWd.Selection.InsertAfter FullName
        monWd.ActiveDocument.Bookmarks("stID").Select
        monWd.Selection.InsertAfter StudentID
        monWd.ActiveDocument.Bookmarks("La").Select
        monWd.Selection.InsertAfter LaborID
        monWd.ActiveDocument.Bookmarks("Re").Select
        monWd.Selection.InsertAfter Region
        monWd.ActiveDocument.Bookmarks("st").Select
        monWd.Selection.InsertAfter State
        monWd.ActiveDocument.Bookmarks("GSM").Select
        monWd.Selection.InsertAfter Phone_GSM_1
        monWd.ActiveDocument.Bookmarks("Fa").Select
        monWd.Selection.InsertAfter æáí_ÇáÃãÑ
        monWd.ActiveDocument.Bookmarks("Fname1").Select
        monWd.Selection.InsertAfter FullName
        monWd.ActiveDocument.Bookmarks("Fa1").Select
        monWd.Selection.InsertAfter æáí_ÇáÃãÑ
        monWd.ActiveDocument.Bookmarks("IDF").Select
        monWd.Selection.InsertAfter ÈØÇÞÉ_æáí_ÇáÇãÑ
        monWd.ActiveDocument.Bookmarks("Attri").Select
        monWd.Selection.InsertAfter Attribution
        monWd.ActiveDocument.Bookmarks("Implem").Select
        monWd.Selection.InsertAfter Implement
        monWd.ActiveDocument.Bookmarks("Date").Select
        monWd.Selection.InsertAfter COSTDA
        monWd.ActiveDocument.Bookmarks("Trn").Select
        monWd.Selection.InsertAfter Tr_allow
        monWd.ActiveDocument.Bookmarks("Hr").Select
        monWd.Selection.InsertAfter Hu_allow
        monWd.ActiveDocument.Bookmarks("Anal").Select
        monWd.Selection.InsertAfter Oth_allow
        monWd.ActiveDocument.Bookmarks("Trad").Select
        monWd.Selection.InsertAfter ÇáÊÎÕÕ
        monWd.ActiveDocument.Bookmarks("Trad1").Select
        monWd.Selection.InsertAfter ÇáÊÎÕÕ
        monWd.ActiveDocument.Bookmarks("Sala").Select
        monWd.Selection.InsertAfter Salary
        monWd.ActiveDocument.Bookmarks("Cost_tr").Select
        monWd.Selection.InsertAfter Cost_training
        monWd.ActiveDocument.Bookmarks("Cost_tr1").Select
        monWd.Selection.InsertAfter Cost_training
End Sub