Определить Max количество последовательно расположенных согласных букв во введённом предложении

Public Sub zad6()
 
    Dim sSentence  As String
    Dim sgl As String
    Dim Max_1 As Integer, Max_2 As Integer
    'Boolean означает, что в переменной может быть
    'только текст "True" или "False".
    Dim bFlag As Boolean
    Dim i As Integer
    
    'Создаём шаблон для команды "Like".
    sgl = "[bcdfghjklmnpqrstvwxyz]"
    
    'Помещаем предложение в переменную.
    sSentence = InputBox("Введите предложение:")
    
    'С помощью цикла просматриваем все символы в строке.
    For i = 1 To Len(sSentence) Step 1
    
        'Нужно обработать момент: является ли текущий символ последним или нет.
        If Mid(sSentence, i, 1) Like sgl And i = Len(sSentence) Then
        
                'Подсчитываем, сколько согласных идут подряд.
                Max_2 = Max_2 + 1
            
                'Если при очерёдном подсчёте согласных букв
                'оказалось больше, то помещаем количество
                'согласных букв в переменную "Max_1".
                If Max_2 > Max_1 Then
                    Max_1 = Max_2
                End If
        
        'Если символ является согласной буквой.
        ElseIf Mid(sSentence, i, 1) Like sgl Then
        
            'Помещаем в переменную "bFlag" текст "True".
            '"True" в переменной "bFlag" будет означать, что
            'была обнаружена согласная буква.
            'А "False" - что символ не является согласной буквой.
            bFlag = True
    
            'Подсчитываем, сколько согласных идут подряд.
            Max_2 = Max_2 + 1
            
        'Если не согласная буква, то делаем пометку.
        Else
            
            'Если до этого были согласные буквы, то
            'анализируем результат.
            If bFlag = True Then
                'Если при очерёдном подсчёте согласных букв
                'оказалось больше, то помещаем количество
                'согласных букв в переменную "Max_1".
                If Max_2 > Max_1 Then
                    Max_1 = Max_2
                End If
                
                'Подготавливаем переменные к следующему использованию.
                bFlag = False
                Max_2 = 0
                
            End If
            
        End If
        
    Next i
    
    'Выводим результат.
    MsgBox "Результат: " & Max_1
    
End Sub

Public Sub zad6()
    Dim sSentence  As String
    Dim sgl As String
    Dim gl As String
    Dim Max_1 As Integer, Max_2 As Integer, Max_3 As Integer, Max_4 As Integer
    Dim bFlag As Boolean
    Dim i As Integer
    sgl = "[bcdfghjklmnpqrstvwxz]"
    gl = "[aeyuio]"
    sSentence = InputBox("Введите предложение:")
    For i = 1 To Len(sSentence) Step 1
        If Mid(sSentence, i, 1) Like sgl And i = Len(sSentence) Then
                Max_2 = Max_2 + 1
                If Max_2 > Max_1 Then
                    Max_1 = Max_2
                End If
        ElseIf Mid(sSentence, i, 1) Like sgl Then
            bFlag = True
            Max_2 = Max_2 + 1
        Else                 
            If bFlag = True Then
                If Max_2 > Max_1 Then
                    Max_1 = Max_2
                End If               
            End If
        End If
If Mid(sSentence, i, 1) Like gl And i = Len(sSentence) Then
                Max_4 = Max_4 + 1
                If Max_4 > Max_3 Then
                    Max_3 = Max_4
                End If
        ElseIf Mid(sSentence, i, 1) Like gl Then
            bFlag = True
            Max_4 = Max_4 + 1
        Else                 
            If bFlag = True Then
                If Max_4 > Max_3 Then
                    Max_3 = Max_4
                End If              
            End If
        End If      
    Next i
    MsgBox "Результат: " & Max_1
    MsgBox "Результат: " & Max_3    
End Sub