Imports System

Imports System.Math  ' for the use of PI instead of Math.PI

​

Public Module Module1

​

    Sub AreaCircum_Circle(ByVal R As Double, ByRef A As Double,

                          ByRef C As Double)

        A = PI * R ^ 2  ' calculate area

        C = 2 * PI * R  ' calculate circumference

    End Sub

    Sub Main()

        ' Variable declaration

        Dim Radius, Area, Circum As Double

        ' Input

        Radius = InputBox("Please enter a value for Radius:")

        ' Calculate area and circumference

        AreaCircum_Circle(Radius, Area, Circum)

        'Output

        MsgBox("area=" & Area & vbCrLf & "circum=" & Circum)

    End Sub

End Module