Напечатать в алфавитном порядке все глухие согласные буквы, которые не входят хотя бы в одно слово

Dim text as String = TextBox1.Text ' тут ваш текст
Dim gluhieSoglasnye() as String = {к,п,с,т,ф,... и так далее}
Dim glasnie() as String = {тут ваши гласные}
For i = 0 to text.Length - 1
If text.Chars(i) = ... Then 'тут условие сравнения с глухими согласными и гласными, либо в цикле, либо как-то иначе
TextBox2.Text = 'выводим букву, раз нужно в алфавитном порядке, тогда только в цикле и сравнивать и если есть совпадение выводит в текстбокс или куда нужно 
End If
Next

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim text As String = TextBox1.Text ' тут ваш текст
        Dim gluhieSoglasnye As String = "пфктшсхцчщ" 'переменная с глухими согласными
        Dim glasnie As String = "аеёиоуыэюя" 'переменная с гласными согласными
        For i = 0 To 9
            For w = 0 To text.Length - 1
                If text.Chars(w) = gluhieSoglasnye.Chars(i) Then TextBox2.Text &= text.Chars(w)
                If text.Chars(w) = glasnie.Chars(i) Then TextBox3.Text &= text.Chars(w)
            Next
        Next
    End Sub

Private Function EnSplit(ByVal stringToSplit As String, ByVal sep() As Char) As String()
        Dim words() As String
        words = stringToSplit.Split(sep)
        Dim FilteredWord As New ArrayList()
        Dim word As String
        For Each word In words
            If word <> String.Empty Then
                FilteredWord.Add(word)
            End If
        Next
        Return CType(FilteredWord.ToArray(GetType(String)), String())
    End Function

Do
            Pos = ЭлементМассива.IndexOf(буква, Pos)
            If Pos <> -1 Then
                math += 1
                Pos += searchFor.Length
            End If
        Loop Until Pos = -1