$a=Inputbox("find diameter", "type the radius") $b=MsgBox(0, "find diameter", $a * 3.14 ^2)