وعليكم السلام استاذ محمد..
في رأيي..افضل طريقة بوضع شارطة قبل التسمية التي تريد كمثال ..محمد احمد/ مقاولات ...محمد احمد/ مقاولات عامة
ثم تستخدم الموديول التالي ..وتستدعيه من الاستعلام ..
Public Function splitword(myNamX As String) As String
Dim exampleString As String
Dim exampleArray() As String
exampleString = myNamX
exampleArray = Split(exampleString, "/")
splitword = exampleArray(1)
End Function