Зацикливание кода VBA при получении неверного ввода

Question

Я написал некоторый код в VBA для суммирования цифр введенного пользователем номера. Я хотел бы сделать код более интуитивным, чтобы вместо того, чтобы не отображать сообщение при получении неверного ввода, я бы хотел, чтобы код отображал сообщение, подчеркивающее, что был неверный ввод, затем l oop и один раз запрашиваю исходный ввод снова. Мой код:

Function addDigits()

    Dim Number As String
    Number = InputBox("Please enter a 5-digit number")

    Dim A As Integer
    Dim Length As Integer

    A = 0
    Length = Len(Number)

    For i = 1 To Length
    A = A + (Mid(Number, i, 1))
    Next i

    MsgBox (A)


End Function