Контроль ввода информации в программу - VB

Формулировка задачи:

т. е. мне надо чтобы когда вводишь числа программа работала, когда вводишь буквы программа выдала сообщение "неверный ввод " и опять запрашивала ввод цифр, а выход осуществлялся двумя способами:при нажатии на "закрыть" в инпутбоксе и после правильного выполнения программы (т. е. после ввода цифр)

Private Sub Command1_Click()
Dim a As Double
Dim n As Integer
On Error Resume Next
Do
a = InputBox("Введите число типа Double", "Ввод данных")
If Err Then MsgBox "Неверный ввод", vbInformation, "Результат" else exit do
Loop
On Error GoTo 0
n = CInt(a)
MsgBox n, vbInformation, "Результат"
End Sub

Решение задачи: «Контроль ввода информации в программу»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a As String
Do Until IsNumeric(a) = True 'будет повторять блок пока переменная "а" не вернёт число, т.е. истину
a = InputBox("Введите число", "Ввод данных") 
If IsNumeric(a) Or a = "" Then 'если число(а), т.е. "а" = истина или а = пустой(Отмена, закрыть) строке тогда
Exit Sub 'Выход из процедуры
Else
MsgBox("введите число!") 'Иначе выводим сообщение с текстом ошибки и повторяем с "a = InputBox(бла-бла-бла)"
End If 
Loop
End Sub
                        