'بفضل الجميع ، تم العثور على حل
Public Function ExcludeText(InputValue As String) As String
Dim varCharCnt
Dim cntr
Dim strChar As String
varCharCnt = Len(InputValue)
For cntr = 1 To varCharCnt
strChar = Mid(InputValue, cntr, 1)
If Asc(strChar) <= 65 And Asc(strChar) <> 32 _
And...