Запрет отображения символов кроме указанных в TextBox

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        e.KeyChar = If("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".Contains(e.KeyChar) OrElse e.KeyChar = vbBack, e.KeyChar, Nothing)
    End Sub

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Str As String = "ABCфычс мс 123 rt"
        Dim Reg As New Regex("[A-Z0-9]")
        Dim B1 As MatchCollection = Reg.Matches(Str)
        For i = 0 To B1.Count - 1
            TextBox1.AppendText(B1.Item(i).ToString)
        Next
    End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim text As String = "Александр Мостовой провел 65 матчей за сборные"
    Dim filter As String = "А5йс"
    TextBox1.Text = filterOut(text, filter)
End Sub
 
Private Function filterOut(txt As String, flt As String) As String
    Dim cf = flt.ToCharArray
    Dim words() As String = txt.Split(" ")
    Dim lst As New List(Of String)
    For Each w As String In words
        lst.Add(String.Concat(Of Char)(w.ToCharArray.Except(cf)))
    Next
    Return String.Join(" ", lst.ToArray)
End Function

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Str As String = "ABCфычс м98с 123.- rt"
        Dim Reg As New Regex("[^А-Яа-яЁё]")
        Dim B1 As MatchCollection = Reg.Matches(Str)
        Dim res As String
        For i = 0 To B1.Count - 1
            res &= B1.Item(i).ToString
        Next
        TextBox1.Text = res
    End Sub

Imports System.Text.RegularExpressions

Dim Reg As New Regex("[^А-Яа-яЁё]")

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Str As String = "ABCфычс м98с 123.- (r)[t}][q]"
        Dim Reg As New Regex("[^А-Яа-яЁё()\[\]]")
        Dim B1 As MatchCollection = Reg.Matches(Str)
        Dim res As String
        For i = 0 To B1.Count - 1
            res &= B1.Item(i).ToString
        Next
        res = res.Replace(Chr(34), "") ' удаляем кавычки
        TextBox1.Text = res
    End Sub

Private Sub Button02_Click(sender As Object, e As EventArgs) Handles Button02.Click
    Dim text As String = "Аa 125й сСС ууу 55"
    Dim filter As String = "А5йс"
    Dim ct = text.ToCharArray
    Dim cf = filter.ToCharArray
    For Each cff As Char In cf
        ct = (From s In ct Where s <> cff Select s).ToArray
    Next
    TextBox1.Text = String.Concat(Of Char)(ct)
    'результат "a 12 CC yyy "
End Sub

Dim l As String = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ" ' что удаляем
Dim a As String = "ПHрeиlвlеoт WМoиrрd " ' строка для удаления
Dim newline = ""
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
    For ll = 0 To l.Length - 1
        a = a.Replace(l(ll), "").Replace(l(ll).ToString.ToLower, "") ' (a) можно выводить или сразу в TextBox
    Next
 
    '' ИЛИ
    'Dim Delete As String = "ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю"
    'Dim OkLine As String = "ПHрeиlвlеoт WМoиrрd"
    'For ll = 0 To Delete.Length - 1
    '    OkLine = OkLine.Replace(Delete(ll), "") ' OkLine можно выводить или сразу в TextBox
    'Next
 
End Sub

 Dim Reg As New Regex("[A-Za-z0-9 ]")

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Str As String = "ABCфычс м98с 123.- (r) [t}][q]7"
        Dim Reg As New Regex("[A-Za-z0-9]")
        Dim B1 As MatchCollection = Reg.Matches(Str)
        Dim resS, resC, res As String
        For Each q In B1
            If Not IsNumeric(q.ToString) Then
                resS &= q.ToString ' Cобираем символы
            Else
                resC &= q.ToString ' Собираем цифры
            End If
        Next
        res = resC & " " & resS
        TextBox1.Text = res
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' приходящая строка
    Dim mytext = TextBox1.Text
    ' удаляем буковки
    Dim textRegexReplace As String = Regex.Replace(mytext, "[А-Яа-яЁё]", "")
    ' выковыриваем цифры
    Dim textDigit = String.Concat(textRegexReplace.Where(AddressOf Char.IsDigit))
    ' выковыриваем буквы
    Dim textLetter = String.Concat(textRegexReplace.Where(AddressOf Char.IsLetter))
 
    TextBox2.Text = textDigit & " " & textLetter
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' приходящая строка
    Dim mytext = TextBox1.Text
    ' удаляем буковки
    Dim textRegexReplace As String = Regex.Replace(mytext, "[А-Яа-яЁё]", "").Replace("gy", "")
    ' выковыриваем цифры
    Dim textDigit = String.Concat(textRegexReplace.Where(AddressOf Char.IsDigit))
    ' выковыриваем буквы
    Dim textLetter = String.Concat(textRegexReplace.Where(AddressOf Char.IsLetter))
 
    TextBox2.Text = textDigit & " " & textLetter
End Sub