Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая - VB

Private Sub Command1_Click()
    i = 1
    Max = 0
    Do
        num = InputBox("Введите " & i & " число")
        If IsNumeric(num) Then
            Sum = 0
            For j = 1 To Len(num)
                Sum = Sum + CInt(Mid(num, j, 1))
            Next
            If Sum > Max Then Max = Sum: max_num = num
            i = i + 1
        Else
            MsgBox "введите число"
        End If
    Loop While i <= 4
    MsgBox max_num
End Sub