السلام عليكم
كما ذكر الأخ محمد الكود فعال و لمسح علامة ؟ يصبح الكود بهذا الشكل
Function Reverse(Text As String) As String
Dim i As Integer
Dim StrNew As String
Dim strOld As String
strOld = Trim(Text)
For i = 1 To Len(strOld)
StrNew = Mid(strOld, i, 1) & StrNew
StrNew = Replace(StrNew, "?", "")
Next i
Reverse = StrNew
End Function