Dim msg
dim a 
dim b
a = 2
b = 3
msg=msg & a & " + " & b & " = " & a+b & vbcrlf
msg=msg & a & " - " & b & " = " & a-b & vbcrlf
msg=msg & a & " * "  & b & " = " & a*b & vbcrlf
msg=msg & a & " / "  & b & " = " & a/b & vbcrlf
msg=msg & a & " \ "  & b & " = " & a\b & vbcrlf
msg=msg & a & " ^ "  & b & " = " & a^b & vbcrlf
msg=msg & a & " Mod "  & b & " = " & a mod b
msgbox msg