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