<XMP>
Sub PopupCalc()
   Dim R
   Dim C, A
   Dim MsgCalc

   R = 10

   C = 2 * 3.14159 * R
   A = 3.14159 * R * R

   MsgCalc = "Radius=" & R & vbCrLf _
            & "Circumference=" & C & vbCrLf _
            & "Area=" & A & vbCrLf
   
   MsgBox (MsgCalc)
End Sub
</XMP>