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

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

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

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

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

                            Private Sub Command1_Click()
'Text1 --- текст
'Text2 --- сообщение
 
'в свойствах --------
'Text1.MaxLength = 254
'Text2.Locked=True
'Text1.MultiLine = True
'Text2.MultiLine = True
'-----------------------
Dim z As Integer, b As Integer, i As Integer
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If Asc(s) > 47 And Asc(s) < 58 Then
z = z + 1
Else: If (Asc(s) > 64 And Asc(s)) < 91 Or _
   (Asc(s) > 96 And Asc(s) < 123) Then b = b + 1
End If
Next i
If b + z = 0 Then
Text2.Text = "0-0"
Else
Text2.Text = "цифр  --- " & z & vbNewLine & _
             "букв /лат/ ---" & b
End If
End Sub
                        