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

Sub m_1()
Dim myArray(1 To 100) As Byte
Dim i As Byte
Dim vПосчёт As Integer
Randomize
For i = 1 To 100
    myArray(i) = Int(100 * Rnd + 1)
    If myArray(i) Mod 2 <> 0 Then
       vПосчёт = vПосчёт + myArray(i)
    End If
Next i
MsgBox "Результат " & vПосчёт
End Sub

Sub m_1()
Dim vНатуральноеЧисло As String
Dim myArray() As Byte
Dim i As Byte
Dim Max As Byte
Dim Min As Byte
vНатуральноеЧисло = InputBox("Введите натуральное число")
ReDim myArray(1 To Len(vНатуральноеЧисло))
Max = Left(vНатуральноеЧисло, 1)
Min = Left(vНатуральноеЧисло, 1)
For i = 2 To Len(vНатуральноеЧисло)
    myArray(i) = Mid(vНатуральноеЧисло, i, 1)
    If Max > myArray(i) Then
        Max = myArray(i)
    ElseIf Min < myArray(i) Then
        Min = myArray(i)
    End If
Next i
MsgBox "Максимальная цифра " & Max & vbCr & "Минимальная цифра " & Min
End Sub