Все определения должны быть в ОДНОЙ программе - VB

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

5.Все определения должны быть в ОДНОЙ программе. Дано четырёхзначное число. Определить: 1)является сумма его цифр двузначным числом 2)наименьшую цифру в числовой записи числа 3)наибольшую нечётную цифру в числовой записи числа 4)повторяются ли какие-либо цифры в числовой записи числа.

Решение задачи: «Все определения должны быть в ОДНОЙ программе»

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

                            Option Explicit
Const n = -1
Const m = 10
 
Private Sub Form_Click()
Dim Sum As Long, A As Long, Num As Byte, Min As Byte, Max As Integer, Temp As Integer, count As Byte
Dim Arr() As Integer, i As Byte, j As Byte, Flag As Boolean
A = InputBox("Введите число -")
Print "Число - "; A;
Print
Min = A Mod m
Max = n
While A
    Num = A Mod m
    If (Not Arr) = n Then ReDim Arr(0) Else ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(UBound(Arr)) = Num
    If Num Mod 2 <> 0 And Num > Max Then Max = Num
    If Num < Min Then Min = Num
    Sum = Sum + Num
    A = A \ m
Wend
If Sum > 9 And Sum < 100 Then
    Print "Сумма цифр является двузначным числом ";
    Print
Else
    Print "Сумма цифр не является двузначным числом ";
    Print
End If
Print "Сумма =  "; Sum;
Print
Print "Наименьшая цифра в числовой записи числа -  "; Min
Print
If Max > n Then
    Print "Наибольшая нечётная цифра в числовой записи числа - "; Max
Else
    Print "Таких цифр в числовой записи числа нет";
End If
Temp = n
Print
For i = LBound(Arr) To UBound(Arr)
  If Arr(i) <> Temp Then
     count = 1
     For j = i + 1 To UBound(Arr)
         If Arr(i) = Arr(j) Then
            Arr(j) = Temp
            count = count + 1
         End If
     Next
        If count >= 2 Then Flag = True: Print "Цифры "; Arr(i); " - "; count
   End If
Next
 If Flag = False Then Print "Повторяющихся цифр нет ";
End Sub
                        