<XMP>
Sub ABAskAdd_OneLine()
   MsgBox (CDbl(InputBox("A=")) + CDbl(InputBox("B=")))
End Sub


Sub ABAskAdd()
   Dim A, B
   Dim C
   
   A = InputBox("A=")
   B = InputBox("B=")
   
   C = CDbl(A) + CDbl(B)
   
   MsgBox (C)
End Sub
</XMP>