Помогите с задачей по информатике языком 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 IfEnd Sub