مشكلة في إجراءات ودوال بداخل وحدة نمطية

السلام عليكم ورحمة الله وبركاته .. وبعد ،،

حاولت إنشاء بعض الإجراءات والدوال بداخل وحدة نمطية حتى أتمكن من إستدعائها من داخل أي نموذج ، وقد وفقت والحمد لله في هذا الشىء ولكن تنقصني أشياء كثيرة ، أورد منها الاتي :

قمت أولاً بكتابة هذه الدالة بداخل وحدة نمطية ، والدالة هي :

Public Function AddEditDel(field As String) As Boolean
AddEditDel = False
' اريد هنا الاشارة إلى قيمة الإجراء  الموضح أدناه
AddEditDel = DLookup([field], "tblUserLevels", "[UserLevelID] = " & USRLVL)
End Function

وكما تلاحظون في آخر السطر الرابع (خانة الشرط) يوجد هناك متغير حاولت أخذ قيمته من الإجراء التالي في نفس الوحدة النمطية :

Private Sub UserLevelNo()
Dim USRLVL As Integer
USRLVL = DLookup("[UserLevel]", "tbl_fbi")
End Sub

وسؤالي هو : هل أستطيع أن أقوم بهذه العملية ، أي إستدعاء إجراء من داخل دالة أو إجراء آخر؟ فإن كان كذلك ، يمكنكم التعديل على الدالة أعلاة حتى أتمكن من حل هذه المشكلة ، ولا أخفيكم بأن هذه الطريقة تخفف من كثرة الأكواد في البرنامج .

بارك الله فيكم ودمتم في رعاية الله ،،