SOS! VBA word 1 макрос нужен!

[Njos]

1. В текстовом документе найти первое слово начинающееся на гласную букву.

Текст любой сказали.

Пожалуйсто, добрые люди, напишите макрос полностью, а то в VBA не очень сильно разбираюсь... Заранее блародарю за помощь!

[WorldMaster]

Код ищет первое слово начинающееся на введенную букву.
Вводите гласные и получите результат.

Sub FindWord()
Dim FLine As String
Dim nVar As Integer
FLine = InputBox("Введите гласную букву", "Ищем слова")
If FLine = Empty Then Exit Sub
If Len(FLine) > 1 Then Exit Sub
Application.ScreenUpdating = False

Dim avarSplit As Variant
avarSplit = Split(ActiveDocument.Range, " ")

For intIndex = LBound(avarSplit) To UBound(avarSplit)
Dim mstr As String
mstr = avarSplit(intIndex)
If Left(mstr, 1) = FLine Then
nVar = MsgBox(mstr, vbOKOnly, "Результат")
Exit Sub
End If
    Next
nVar = MsgBox("Совпадений не найдено", vbOKOnly, "Результат")
Application.ScreenUpdating = True
End Sub