Подскажите с алгоритмом, контрольная по информатике

Public GL As Boolean
 
Public Sub Sixlab()
 
Dim buffer As String
Dim txt As String
Dim txt500 As String
Dim MassivWords() As String
Dim WordsWithGl As String
Dim i As Long
Dim a As Integer
Dim word As String
Dim WordCounter As Long
 
 
 
 
Set myRange = ThisDocument.Range
 
Open "C:\test.txt" For Input As #1 'óêàçûâàåì ôàéë äëÿ ÷òåíèÿ
Do Until EOF(1) 'end of file
Line Input #1, buffer
txt = txt & buffer 'ïîñòðî÷íî êîïèðóåì òåêñò â txt
Loop
Close #1
 
With myRange.Font 'íàñòðîéêè äîêóìåíòà
.Name = "Times New Roman"
.Size = 14
End With
 
txt500 = Left(txt, 500)
 
myRange.Text = txt500 'çàïèñûâàåì ñ÷èòàíóþ ñòðîêó äàííûõ èç ôàéëà â ôàéë Word
 
WordCounter = 0
 
MassivWords() = Split(txt500, , , vbTextCompare) ' çàïèñàëè â ìàññèâ ðàçáèâ ïî ïðîáåëàì
For i = 0 To UBound(MassivWords())
word = MassivWords(i)
Call Proverka(word)
If GL = True Then
WordCounter = WordCounter + 1
WordsWithGl = WordsWithGl & vbCrLf & word
End If
Next i
MsgBox "Êîëè÷åñòâî ñëîâ ñ íå÷åòíûìè ãëàñíûìè=" & WordCounter & vbCrLf & WordsWithGl
End Sub
 
Public Sub Proverka(word)
 
For a = 1 To Len(word) Step 2
    If Mid(word, a, 1) Like "[àîýåèûó¸þÿàóîûa]" = True Then
     GL = True
     GoTo 1
    ElseIf Mid(word, a, 1) Like "[àîýåèûó¸þÿàóîû]" = False Then
     GL = False
     End If
     Exit For
1: Next