求大神帮忙一道vb题！感激不尽！！！

Private Sub Form_Click()
Do
a1 = InputBox("请输入第一个数")
If IsNumeric(a1) = True Then Exit Do
Loop
Print a1
Do
a2 = InputBox("请输入第二个数")
If IsNumeric(a2) = True Then Exit Do
Loop
Print a2
a3 = Val(a1) + Val(a2)
a4 = 1 / 2 * a3
MsgBox "两数之和：" & a3 & " 平均数" & a4
End Sub