Написать программу, определение чисел и букв

Private Sub Command1_Click()
Dim i&, b0 As Boolean, bA As Boolean, b_ As Boolean
For i = 1 To Len(Text1.Text)
  Select Case Mid(Text1.Text, i, 1)
    Case "0" To "9": b0 = True
    Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё": bA = True
    Case Else: b_ = True
  End Select
Next i
Text2 = IIf(b0, "цифра ", "") & IIf(bA, "буква ", "") & IIf(b_, "ХЗ", "")
End Sub

Private Sub Command1_Click()
Dim i&, b0 As string, bA As string, b_ As string
For i = 1 To Len(Text1.Text)
  Select Case Mid(Text1.Text, i, 1)
    Case "0" To "9": b0 = "цифра "
    Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё": bA = "буква "
    Case Else: b_ = "ХЗ"
  End Select
Next i
Text2 = b0 & bA & b_"
End Sub

Private Sub Command1_Click()
Dim i&', b0 As string, bA As string, b_ As string
Text2=""
For i = 1 To Len(Text1.Text)
  Select Case Mid(Text1.Text, i, 1)
    Case "0" To "9": Text2= Text2 & "цифра "
    Case "A" To "Z", "a" To "z", "А" To "Я", "а" To "я", "Ё", "ё": Text2=Text2 & "буква "
    Case Else: Text2=Text2 & "ХЗ "
  End Select
Next i
End Sub