Suma

Private Sub Command1_Click()
Dim a, b As Integera
a= InputBox("escriba el valor de a:", 0)
b = InputBox("escriba el valor de b:", 0)
MsgBox (a + b)
End Sub