[ابراهيم ايبو]

السلام عليكم اخي محمد
اولا اشكر الاخ smalw  على ماقدمه 
ولتنويع الافكار والاكواد اليك هذا الكود

كود :

Dim dd As Char() = {"a", "s", "v", "t"}
   Dim dt As New DataTable()
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       For i As Integer = 0 To dt.Rows.Count - 1
           ' اخي محمد استبدل الرقم صفر برقم العمود الذي تريد تغيير قيمه
           For Each c As Char In dt.Rows(i).Item(0).ToString().ToCharArray
               If Not dd.Contains(c) Then
                   dt.Rows(i).Item(0) = dt.Rows(i).Item(0).ToString.Replace(c, "")
               End If

           Next
       Next
   End Sub

واليك هذا المثال فيه تلاث حالات (تغيير في مربع نص - تغيير في ليست بوكس- تغيير في داتاتابل)
ارجو ان اكون قد افدتك .... دمت بخير