I Simple calculator, i hope it works
do
Dim a
a=inputbox("put in your number:")
b=inputbox("number you would like to multiply:")
if not isnumeric (a) then
wscript.quit
end if
if not isnumeric (b) then
wscript.quit
end if
c=msgbox("Your Answer: "& a * b)
loop

Less than poor, because:

• the script serves no purpose
• the UI is rotten: asking for a number before telling about the operation, no feedback for bad input
• bad practices: no "Option Explicit", lousy variable names, unused variable

corrected (with minor improvement) 
================================
Option Explicit
Dim a, b, c
a=inputbox ("put in your number: ", "Multiplication- First Number")
b=inputbox ("number you would like to multiply:", "Multiplication- Second Number")
if not isnumeric (a) then
wscript.quit
end if
if not isnumeric (b) then
wscript.quit
end if
c=msgbox ("Your Answer: "& a * b, vbCritical, "Answer")

Well.. it works...