'بفضل الجميع ، تم العثور على حل
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 Asc(strChar) <> 46 And Asc(strChar) <> 44 Then
ExcludeText = ExcludeText & strChar
End If
Next cntr
End Function
[/الشفرة]