Контроль ввода чисел в InputBox - VB

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

как в этом коде сделать защиту от дурака, т. е. что бы при вводе в InputBox чисел програмка считала сумму двух чисел а при вводе вместо чисел каких либо букв мне в MsgBox выводило что я ввел буквы а не числа

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Form5.Visible = False
Dim X As Double
Dim Y As Double
X = InputBox("Введите первое число", "Ввод данных")
Y = InputBox("Введите второе число", "Ввод данных")
MsgBox (X + Y), vbInformation, "Результат"
End Sub

Решение задачи: «Контроль ввода чисел в InputBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private SUB Command1_Click()
Form5.Visible = False
DIM X AS DOUBLE
DIM Y AS DOUBLE
on error resume next
do
X = InputBox("Введите первое число", "Ввод данных")
if err then msgbox "Неверный ввод":err.clear  else exit do
loop
do
Y = InputBox("Введите второе число", "Ввод данных")
if err then msgbox "Неверный ввод":err.clear  else exit do
loop
on error goto 0
MsgBox (X + Y), vbInformation, "Результат"
END SUB