Обработка данных строкового типа в Visual Basic - VB

Формулировка задачи:

Помогите написать программу в Visual Basic, плиз. Дана строка длиной до 254 символов. Посчитать во сколько раз цифр в строке меньше чем букв латинского алфавита. Использовать функции для работы с данными символьного типа. Результатом должно быть сообщение о найденном значении или об отсутствии значения.

Решение задачи: «Обработка данных строкового типа в Visual Basic»

textual
                            Листинг программы 
                        

                            Sub Task()
Dim i As Byte, sStr As String, iLen As Byte, iNum  As Byte, iStr As Byte, iRes As Byte
sStr = InputBox("Г‚ГўГ®Г¤ Г±ГІГ°Г®ГЄГЁ:")
iLen = Len(sStr)
If iLen = 0 Or iLen > 254 Then Exit Sub
For i = 1 To iLen
    Select Case Asc(Mid(sStr, i, 1))
        Case 48 To 57: iNum = iNum + 1
        Case 65 To 90, 97 To 122: iStr = iStr + 1
    End Select
Next
iRes = iStr - iNum
Select Case iRes
    Case Is > 0: sStr = "ГЃГіГЄГў ГЎГ®Г«ГјГёГҐ Г¶ГЁГґГ° Г*Г* " & iRes
    Case Is = 0: sStr = "ГЃГіГЄГў Г±ГІГ®Г«ГјГЄГ® Г¦ГҐ Г±ГЄГ®Г«ГјГЄГ® ГЁ Г¶ГЁГґГ° - " & iStr
    Case Is < 0: sStr = "ГЃГіГЄГў Г¬ГҐГ*ГјГёГҐ Г¶ГЁГґГ° Г*Г* " & Abs(iRes)
End Select
MsgBox sStr
End Sub
                        