Подсчет слов,начинающихся с гласной буквы

rivate Sub CommandButton2_Click()
    Dim Gext As String
    Dim res As Integer
    Dim arr(15) As String
    arr(0) = "А"
    arr(1) = "а"
    arr(2) = "Е"
    arr(3) = "е"
    arr(4) = "И"
    arr(5) = "и"
    arr(6) = "О"
    arr(7) = "о"
    arr(8) = "У"
    arr(9) = "у"
    arr(10) = "Э"
    arr(11) = "э"
    arr(12) = "Ю"
    arr(13) = "ю"
    arr(14) = "Я"
    arr(15) = "я"
    Gext = ThisDocument.Range.text
    res = 0
    Dim i As Integer
    For i = 0 To Len(text) - 1 Step 1
            If (ActiveDocument.Characters(i).text = " ") Or (Gext(i).text = "\n") Or (Gext(i) = """") Or (Gext(i) = vbKeyTab) Then
                If (text(i + 1) = "А") Or (text(i + 1) = "а") Or (text(i + 1) = "Е") Or (Gext(i + 1) = "е") Or (Gext(i + 1) = "О") Or (text(i + 1) = "о") Or (text(i + 1) = "И") Or (text(i + 1) = "и") Or (text(i + 1) = "У") Or (text(i + 1) = "у") Or (text(i + 1) = "Э") Or (text(i + 1) = "э") Or (text(i + 1) = "Ю") Or (text(i + 1) = "ю") Or (text(i + 1) = "Я") Or (text(i + 1) = "я") Then
                    res = res + 1
 
    MsgBox "Количество слов, начинающихся на гласную: " & CStr(res)
End Sub

Gext=trim(Gext)

do while instr(1,Gext,"  ")>0
Gext=replace(Gext,"  "," ")
loop

dim tx() as string

tx()=split(Gext," ")

For i=0 to Ubound(tx)

for j=0 to 15

if Left(tx(i),1)=arr(j) then res=res+1

next j
next i

MsgBox "Количество слов, начинающихся на гласную: " & CStr(res)

Private Sub CommandButton2_Click()
    Dim Gext As String
    Dim res As Integer
    Dim arr(15) As String
    arr(0) = "А"
    arr(1) = "а"
    arr(2) = "Е"
    arr(3) = "е"
    arr(4) = "И"
    arr(5) = "и"
    arr(6) = "О"
    arr(7) = "о"
    arr(8) = "У"
    arr(9) = "у"
    arr(10) = "Э"
    arr(11) = "э"
    arr(12) = "Ю"
    arr(13) = "ю"
    arr(14) = "Я"
    arr(15) = "я"
    Gext = ThisDocument.Range.text
    Gext = Trim(Gext)
    Do While InStr(1, Gext, "  ") > 0
    Gext = Replace(Gext, "  ", " ")
    Loop
    Dim tx() As String
    tx() = Split(Gext, " ")
    For i = 0 To UBound(tx)
    For j = 0 To 15
    b = Left(tx(i), 1)
    If Left(tx(i), 1) = arr(j) Then res = res + 1
    Next j
    Next i
    MsgBox "Количество слов,начинающихся на гласную: " & CStr(res)
End Sub