Задача на VB 6.0

[Maxs]

Вот задание:
слова отделяются пробелами,предложения точкой
1.последовательно выделять слова,где согласных букв больше чем гласных
Как можно циклом перебрать каждую букву? Как выделить слова в текст боксе? И проверить гласная или согласная она? Занести в разные массивы для гласных и согласных все буквы и проверять к какому массиву буква относится?

[EducatedFool]

Sub Main()
    'слова отделяются пробелами,предложения точкой
    'последовательно выделять слова,где согласных букв больше чем гласных

    Гласные = "уеыаоэяиюё": Согласные = "йцкнгшщзхъфвпрлджчсмтьб"

    txt = "Как можно циклом перебрать каждую букву? Как выделить слова в текст боксе? " & _
          "И проверить гласная или согласная она? Занести в разные массивы для гласных и " & _
          "согласных все буквы и проверять к какому массиву буква относится?"
    'txt = textbox1.Text
    МассивСлов = Split(txt, " ")
    
    For i = LBound(МассивСлов) To UBound(МассивСлов)
        слово = МассивСлов(i)
        КолвоГласных = 0: КолвоСогласных = 0
        For j = 1 To Len(слово)
            буква = Mid(слово, j, 1)
            If InStr(1, Гласные, буква) > 0 Then КолвоГласных = КолвоГласных + 1
            If InStr(1, Согласные, буква) > 0 Then КолвоСогласных = КолвоСогласных + 1
        Next j
        If КолвоГласных < КолвоСогласных Then res = res & слово & vbNewLine
    Next i
    MsgBox res, vbInformation, "Слова, в которых согласных больше"
End Sub

[Maxs]

Сообщение от EducatedFool

Sub Main()
    'слова отделяются пробелами,предложения точкой
    'последовательно выделять слова,где согласных букв больше чем гласных

    Гласные = "уеыаоэяиюё": Согласные = "йцкнгшщзхъфвпрлджчсмтьб"

    txt = "Как можно циклом перебрать каждую букву? Как выделить слова в текст боксе? " & _
          "И проверить гласная или согласная она? Занести в разные массивы для гласных и " & _
          "согласных все буквы и проверять к какому массиву буква относится?"
    'txt = textbox1.Text
    МассивСлов = Split(txt, " ")
    
    For i = LBound(МассивСлов) To UBound(МассивСлов)
        слово = МассивСлов(i)
        КолвоГласных = 0: КолвоСогласных = 0
        For j = 1 To Len(слово)
            буква = Mid(слово, j, 1)
            If InStr(1, Гласные, буква) > 0 Then КолвоГласных = КолвоГласных + 1
            If InStr(1, Согласные, буква) > 0 Then КолвоСогласных = КолвоСогласных + 1
        Next j
        If КолвоГласных < КолвоСогласных Then res = res & слово & vbNewLine
    Next i
    MsgBox res, vbInformation, "Слова, в которых согласных больше"
End Sub

Спасибо!!!

[Maxs]

Никак не могу правильно выделить текст. Вот че нашел в инете, не работает. Как здесь провести поиск.

    'слова отделяются пробелами,предложения точкой

    Гласные = "уеыаоэяиюёУЕЫАОЭЯИЮ": Согласные = "йцкнгшщзхъфвпрлджчсмтьбЙЦКНГШЩЗХЪФВПРЛДЖЧСМТЬБ"
    txt = RichTextBox1.Text
    МассивСлов = Split(txt, " ")
    
    For i = LBound(МассивСлов) To UBound(МассивСлов)
        slovo = МассивСлов(i)
        КолвоГласных = 0: КолвоСогласных = 0
        For j = 1 To Len(slovo)
            буква = Mid(slovo, j, 1)
            If InStr(1, Гласные, буква) > 0 Then КолвоГласных = КолвоГласных + 1
            If InStr(1, Согласные, буква) > 0 Then КолвоСогласных = КолвоСогласных + 1
        Next j
        If КолвоГласных < КолвоСогласных Then
        res = res & slovo & vbNewLine
        //вот здесь вставил из инета
        RichTextBox1.SelStart = RichTextBox1.SelStart _
        + RichTextBox1.SelLength + 1
        RichTextBox1.Find slovo, , Len(RichTextBox1)
        RichTextBox1.SelColor = clRed
        //до сюда
        End If
    Next i
    MsgBox res, vbInformation, "Слова, в которых согласных больше"