Function cleanup(s As String, Optional toggle As Boolean)

    Dim i&, c$, t$, tt$

    

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        Select Case Asc(c)

            Case 1 To 239

                t = t & c

            Case 240 To 243, 245, 246, 248, 250

                tt = tt & c

        End Select

    Next i



    cleanup = IIf(toggle, tt, t)

End Function

والملف مرفق أيها الغالى عليا للتحميل فى وقت وفى أى مكان
والسلام عليكم ورحمة الله وبركاته