Public Function Clean(sString As String) As String


Dim nLength As Integer


Dim nStart As Integer


Dim sOne As String


Dim sNoWay As String    '


sNoWay = " ',-.()!_$*<>/?;:=+" ' الحروف المراد حذفها


If Not IsNull(sString) Then


nLength = Len(sString)


nStart = 1


Do While nStart <= nLength


sOne = Mid(sString, nStart, 1)


If InStr(1, sNoWay, sOne, vbTextCompare) = 0 Then


Clean = Clean & sOne


End If


nStart = nStart + 1


Loop


End If


End Function


Private Sub Command1_Click()


MsgBox Clean("منتديات-الفريق'العربي=للبرمجة")


End Sub