Помогите с задачей по информатике языком VBA Дано целое четырехзначное число. Найти...

Question

Помогите с задачей по информатике языком VBA Дано целое четырехзначное число. Найти минимальную его цифру. Проверить возможность ввода не четырехзначного числа, при этом сообщить об ошибке ввода.

Answer 1

Sub ex()
    n = CInt(InputBox("Введите натуральное 4х значное число"))
    If n < 1000 Or n > 9999 Then
        MsgBox "Недопустимое значение"
    Else
        dm = n Mod 10
        Do While n > 0
          d = n Mod 10
          If d < dm Then dm = d
          n = n \ 10
        Loop
        MsgBox "Наименьшая цифра: " + CStr(dm)
    End If
End Sub