Найти наибольшую и наименьшую цифры в записи данного натурального числа. - VB

Private Sub Form_Load()
    Dim Number As String, Min As Long, Max As Long, I As Long, C As Long
    Number = "3403230421232044230"
    Min = Val(Left$(Number, 1))
    Max = Min
    For I = 2 To Len(Number)
        C = Val(Mid$(Number, I, 1))
        If C < Min Then Min = C
        If C > Max Then Max = C
    Next
    MsgBox "Min: " & Min & vbNewLine & "Max: " & Max
End Sub