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

Sub ex ()

n = CInt (InputBox ("Введите натуральное 4 х значное число"))

If 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