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

Sub byPolina0908Task()
Dim mValue&, mARR(), i&
    mValue = 443852367
    ReDim mARR(1 To Len(CStr(mValue)))
        For i = 1 To Len(CStr(mValue)): mARR(i) = CLng(Mid(CStr(mValue), i, 1)): Next 'i
    MsgBox "My Value:" & Space(3) & mValue & Chr(13) & _
                String(20, "-") & Chr(13) & _
                "The largest number:" & Space(3) & Application.Max(mARR) & _
                Chr(13) & String(20, "-") & Chr(13) & _
                "The smallest number:" & Space(3) & Application.Min(mARR)
    Erase mARR: MsgBox Space(12) & "D O N E!"
End Sub

Sub z()
Dim x, i As Long
Dim s, si, max, min As String
 
x = 443852367
s = Trim(Str(x))
 
min = Mid(s, 1, 1)
max = min
 
For i = 1 To Len(s)
  si = Mid(s, i, 1)
  If si > max Then max = si
  If si < min Then min = si
Next i
 
MsgBox "min=" + min + " max=" + max
 
End Sub

Sub z()
Dim i As Long
Dim x, si, max, min As String
 
x = InputBox("Введите х")
 
min = Mid(x, 1, 1)
max = min
 
For i = 1 To Len(x)
  si = Mid(x, i, 1)
  If si > max Then max = si
  If si < min Then min = si
Next i
 
MsgBox "min=" + min + " max=" + max
 
End Sub

Sub Task(N as long)
      SN$=Cstr(N)
      min$=left$(SN$,1)
      max$=min$
      for i%=2 to len(SN$)
          if mid$(SN$,i%,1) > max$ then max$=mid$(SN$,i%,1) 
          if mid$(SN$,i%,1) < min$ then min$=mid$(SN$,i%,1) 
      Next i%
      MsgBox "Мин=" & min$ & " Max=" & max$
End Sub