[vbnet]

.....

استخدم هذه الدالة مع النص قبل إدراجه في أي مكان سواء MSFlexGrid أو TextBox
المعامل الثالث mTrim اختياري لحذف المسافات من على جانبي النص

منقول

كود :

Public Function StringFilter(mString As String, mSymbols As String, Optional mTrim = False) As String
    Dim i As Integer: For i = 1 To Len(mString)
        If InStr(mSymbols, Mid$(mString, i, 1)) = 0 Then StringFilter = StringFilter & Mid$(mString, i, 1)
    Next i
    If mTrim Then StringFilter = Trim$(StringFilter)
End Function

طريقة الاستخدام

كود :

Private Sub Command1_Click()
    Dim filter As String
    filter = "~`!#$%^&*\/<>{}()[]|+-="
    
    Text2.Text = StringFilter(Text1.Text, filter, True)
    
End Sub

.....