求VB编程:任意两个数的和.SOS

Private Sub Form_Click()
a = InputBox("请输入第一个数")
If IsNumeric(a) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Exit Sub
End If
b = InputBox("请输入第二个数")
If IsNumeric(b) = False Then
MsgBox "请输入数字！", 48, "错误提示"
Exit Sub
End If
c = Val(a) + Val(b)
Print c
End Sub

private sub form_click()
a=int(rnd*100)
b=int(rnd*100)
s=a+b
msgbox ("任意数之和为：" & a & "+" & b & "=" & s)

end sub