Imports System
Public Class MainClass
Shared Sub Main()
Dim dblRadiusSquared As Double
Dim dblResult As Double
Dim radius As Double
radius = 10.01
dblRadiusSquared = radius * radius
dblResult = dblRadiusSquared * Math.PI
System.Console.WriteLine(dblResult)
End Sub
End Class