Imports System

Public Module Module1

    Public Sub Main()

        dim diameter As decimal

        dim radius As decimal

        dim area As decimal

        dim circumference As decimal

        dim arcAngle As decimal

        dim arcLength As decimal

        Console.WriteLine("Please enter the diameter of the circle")

        diameter = Console.ReadLine()

        radius = diameter / 2

        area = 3.14 * (radius * radius)

        circumference = 3.14 * diameter

        Console.WriteLine()

        Console.WriteLine("The Radius is " & radius)

        Console.WriteLine("The area is " & area)

        Console.WriteLine("The circumference is " & circumference)

        Console.WriteLine()

        Console.WriteLine("What is the arc angle?")

        arcAngle = console.ReadLine()

        arcLength = (circumference * arcAngle)/360

        Console.WriteLine()

        Console.WriteLine("The arc lengh is " & arcLength)

    End Sub

End Module