Спо информатике языком 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