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

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