vBasic защита

[lurjk]

Помогите пожалуйста сделать защиту от ввода букв

Private Sub Command1_Click()
num = InputBox("Введите число ")
Print num ^ 2
Print num ^ 3
End Sub

[lurjk]

Разобрался,может кому нибудь пригодиться.

Private Sub Command1_Click()
Dim nun As Integer
On Error Resume Next
Do
num = InputBox("Введите числа ")
Print num ^ 2
Print num ^ 3
If Err Then MsgBox "Неверный ввод": Err.Clear Else Exit Do
Loop
End Sub