Алгоритм выделения разрядов числа и проверки, есть ли среди них нечетная цифра - VB

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

Задание. Дано трехзначное число. Составить алгоритм выделения его разрядов и проверки, есть ли среди них нечетная цифра. Код не совсем правильно составлен. Подскажите ошибку пожалуйста...

Private Sub Command1_Click()
Dim a As Single
a = InputBox("Введите трехзначное число")
a = Val(Text1.Text)
If Len(a) = 3 Then
ReDim r(3)
r(3) = Mid(Text1.Text, 1, 1)
r(2) = Mid(Text1.Text, 2, 1)
r(1) = Mid(Text1.Text, 3, 1)
If r(3) / 2 = Int(r(3) / 2) Then
Label2.Caption = "Третий разряд: " + r(3) + " является четным"
Else
Label2.Caption = "Третий разряд: " + r(3) + " является нечетным"
End If
If r(2) / 2 = Int(r(2) / 2) Then
Label3.Caption = "Третий разряд: " + r(2) + " является четным"
Else
Label3.Caption = "Третий разряд: " + r(2) + " является нечетным"
End If
If r(1) / 2 = Int(r(1) / 2) Then
Label4.Caption = "Третий разряд: " + r(1) + " является четным"
Else
Label4.Caption = "Третий разряд: " + r(1) + " является нечетным"
End If
Else
MsgBox "Вы не ввели трехзначное число.", 48, "Информация"
End If
End Sub

Решение задачи: «Алгоритм выделения разрядов числа и проверки, есть ли среди них нечетная цифра»

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

                            Private Sub Command1_Click()
Dim a As String
a = InputBox("Введите трехзначное число")
a = Trim(Text1.Text)
If Len(a) = 3 Then
    ReDim r(3)
    For i = 1 To 3
    r(3) = Val(Mid(Text1.Text, 1, 1))
    r(2) = Val(Mid(Text1.Text, 2, 1))
    r(1) = Val(Mid(Text1.Text, 3, 1))
    If r(3) Mod 2 = 0 Then
        Label2.Caption = "Третий разряд: " + r(3) + " является четным"
    Else
        Label2.Caption = "Третий разряд: " + r(3) + " является нечетным"
    End If
    If r(2) Mod 2 = 0 Then
        Label3.Caption = "Второй разряд: " + r(2) + " является четным"
    Else
        Label3.Caption = "Второй разряд: " + r(2) + " является нечетным"
    End If
    If r(1) Mod 2 = 0 Then
        Label4.Caption = "Первый разряд: " + r(1) + " является четным"
    Else
        Label4.Caption = "Первый  разряд: " + r(1) + " является нечетным"
    End If
Else
    MsgBox "Вы не ввели трехзначное число.", 48, "Информация"
End If
End Sub
                        