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

        Dim Текст As String = "В России каждый бухгалтер должен знать, как же всё-таки работать со строками в Визуал Студио от Билла Гейтса."
        Dim Разделители() As Char = {" ", ",", ".", ";"}
        Dim ЗвонкиеСогласные() As Char = {"б", "в", "г", "д", "ж", "з", "л", "м", "н", "р"}
        Dim МассивСлов() As String
        МассивСлов = Текст.ToLower.Split(Разделители, StringSplitOptions.RemoveEmptyEntries)
        'ToLower - переводит всю строку в нижний регистр
        'Split - "разбивает" строку по разделителям, в данном случае - сохраняет слова в массив строк
        'RemoveEmptyEntries - в случае, если в тексте будет несколько подряд идущих разделителей - удалит из массива "пустые" строки
        'например: ", " - запятая и сразу следом пробел (после слова "знать")
        For Each Слово In МассивСлов
            For Each Символ In Слово
                For Each ЗвонкаяСогласная In ЗвонкиеСогласные
                    If Символ = ЗвонкаяСогласная Then
 
                    End If
                Next
            Next
            MessageBox.Show(Слово)
        Next