Dim dRadius As Double 'radius entered by user Dim dArea As Double 'calculated circle area Dim dCircum As Double 'calculated circle circumference Const dPI As Double = 3.14159265358979 'Read radius from user 'Calculate area and circumference 'Print area and circumference (using single MsgBox) 'Print either big or small circle