Пользователь вводит символ (переменная типа Char). В случае ввода русской буквы сообщить пользователю гласная она или согласная. При вводе НЕ русской буквы выдать сообщение об ошибке. Использовать оператор выбора Select Case. Спасибо большое!!!!!

Barkan, написала программу, но как отразить условие, что если это НЕ русская буква, то выводить ошибку? C Английским языком понятно, а с остальными языками как быть, подскажите, пожалуйста? И нельзя ли как-то сократить количество CASE-ов при прописывании гласных букв?

Dim strX As String

strX = InputBox("Введите символ")

If (strX >= "А" And strX <= "Я") Or (strX >= "а" And strX <= "я") Then


Select Case strX
Case "А"
MsgBox ("Это Гласная буква")
Case "Е"
MsgBox ("Это Гласная буква")
Case "Ё"
MsgBox ("Это Гласная буква")
Case "И"
MsgBox ("Это Гласная буква")
Case "О"
MsgBox ("Это Гласная буква")
Case "У"
MsgBox ("Это Гласная буква")
Case "Ы"
MsgBox ("Это Гласная буква")
Case "Э"
MsgBox ("Это Гласная буква")
Case "Ю"
MsgBox ("Это Гласная буква")
Case "Я"
MsgBox ("Это Гласная буква")
Case "а"
MsgBox ("Это Гласная буква")
Case "е"
MsgBox ("Это Гласная буква")
Case "ё"
MsgBox ("Это Гласная буква")
Case "и"
MsgBox ("Это Гласная буква")
Case "о"
MsgBox ("Это Гласная буква")
Case "у"
MsgBox ("Это Гласная буква")
Case "ы"
MsgBox ("Это Гласная буква")
Case "э"
MsgBox ("Это Гласная буква")
Case "ю"
MsgBox ("Это Гласная буква")
Case "я"
MsgBox ("Это Гласная буква")

Case Else
MsgBox ("Это солгасная буква")

End Select

ElseIf (strX >= "A" And strX <= "Z") Or (strX >= "a" And strX <= "z") Then

MsgBox ("Ошибка")

End If

Всем спасибо. Вы подсказали, как научиться хорошо программировать. Задачу эту я решил.
А можно убрать мои сообщения с форума в этой теме? Считаю, что другим эти сообщения не принесут никакой пользы.