Option Explicit 'Это чтоб переменные всегда были определины. иначе ошибка
Dim RussSmallCount As Integer, RussBigCount As Integer 'Счетчики строчных и прописных букв (тут, чтоб держались в памяти при каждом наборе буквы)

Private Sub Command1_Click()
Dim GlassnueSmall As String, GlassnueBig As String, i As Integer 'Объявляем переменные
Dim GlassnueBigCount As Integer, GlassnueSmallCount As Integer 'Объявляем переменные
GlassnueSmall = "аеёиоуыэюя" 'Задаем буквы в переменную
GlassnueBig = "АЕЁИОУЫЭЮЯ"
For i =  1  To Len(Text1.Text) 'Ищем в цикле все строчные глассные
    If InStr( 1 , GlassnueSmall, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она строчной гласной
        GlassnueSmallCount = GlassnueSmallCount +  1  'Если да, увеличиваем счетчик на 1
    End If
Next

For i =  1  To Len(Text1.Text) 'Ищем в цикле все прописные глассные
    If InStr( 1 , GlassnueBig, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она прописной гласной
        GlassnueBigCount = GlassnueBigCount +  1  'Если да, то увеличиваем счетчик на 1
    End If
Next

MsgBox "Всего в набранном тексте " + CStr(GlassnueSmallCount) + " строчных гласных букв и " + CStr(GlassnueBigCount) + " прописных гласных букв." 'Выводим результат сообщением
End Sub

Private Sub Command2_Click()
RussSmallCount =  0 
RussBigCount =  0  'Обнуляем счетчики
Text1.Text = "" 'Очищаем Text1
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim VseSimvolu As String, RussSmall As String, RussBig As String  'Объявляем переменные
VseSimvolu = "абвгдеёжзийклмнопрстуфхцчшщьыъэюя АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ" 'Задаем буквы в переменную
RussSmall = "абвгдеёжзийклмнопрстуфхцчшщьыъэюя" 'Задаем буквы в переменную
RussBig = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ" 'Задаем буквы в переменную
If InStr( 1 , VseSimvolu, Chr$(KeyAscii)) =  0  Then KeyAscii =  0  'вводить можно только кириллицу и знак пробел

If InStr( 1 , RussSmall, Chr$(KeyAscii)) >  0  Then 'Проверяем введенную букву является ли она строчной
    RussSmallCount = RussSmallCount +  1  'Счетчик строчных букв
ElseIf InStr( 1 , RussBig, Chr$(KeyAscii)) >  0  Then 'Проверяем введенную букву является ли она прописной
    RussBigCount = RussBigCount +  1  'Счетчик прописных букв
End If


Label1 = "Всего введено: " + CStr(RussSmallCount) + " строчных букв и " + CStr(RussBigCount) + " прописных букв." 'Выводим результат в Label1
End Sub

Private Sub Command1_Click()
Dim GlassnueSmall As String, GlassnueBig As String, i As Integer 'Объявляем переменные
Dim GlassnueBigCount As Integer, GlassnueSmallCount As Integer 'Объявляем переменные
GlassnueSmall = "аеёиоуыэюя" 'Задаем буквы в переменную
GlassnueBig = "АЕЁИОУЫЭЮЯ"
For i =  1  To Len(Text1.Text) 'Ищем в цикле все строчные глассные
    If InStr( 1 , GlassnueSmall, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она строчной гласной
        GlassnueSmallCount = GlassnueSmallCount +  1  'Если да, увеличиваем счетчик на 1
    End If
Next

For i =  1  To Len(Text1.Text) 'Ищем в цикле все прописные глассные
    If InStr( 1 , GlassnueBig, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она прописной гласной
        GlassnueBigCount = GlassnueBigCount +  1  'Если да, то увеличиваем счетчик на 1
    End If
Next

MsgBox "Всего в набранном тексте " + CStr(GlassnueSmallCount) + " строчных гласных букв и " + CStr(GlassnueBigCount) + " прописных гласных букв." 'Выводим результат сообщением
End Sub

Private Sub Command1_Click()
Dim GlassnueSmall As String, GlassnueBig As String, i As Integer 'Объявляем переменные
Dim GlassnueBigCount As String, GlassnueSmallCount As String 'Объявляем переменные
GlassnueSmall = "аеёиоуыэюя" 'Задаем буквы в переменную
GlassnueBig = "АЕЁИОУЫЭЮЯ"
For i =  1  To Len(Text1.Text) 'Ищем в цикле все строчные глассные
    If InStr( 1 , GlassnueSmall, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она строчной гласной
        GlassnueSmallCount = GlassnueSmallCount + Mid(Text1.Text, i,  1 )  'Если да, то добавляем глассную букву в строковую переменную
    End If
Next

For i =  1  To Len(Text1.Text) 'Ищем в цикле все прописные глассные
    If InStr( 1 , GlassnueBig, Mid(Text1.Text, i,  1 )) >  0  Then 'Проверяем каждую букву из Text1 является ли она прописной гласной
        GlassnueBigCount = GlassnueBigCount + Mid(Text1.Text, i,  1 ) 'Если да, то добавляем глассную букву в строковую переменную
    End If
Next

MsgBox "В набранном тексте '" + CStr(GlassnueSmallCount) + "' строчные гласные буквы и '" + CStr(GlassnueBigCount) + "' прописные гласные буквы." 'Выводим результат сообщением
End Sub