Řešení:
Obsah S pravidelného šestiúhelníku vepsaného do kružnice o známém poloměru r lze vypočítat podle rovnice:

Module Module1

    Sub Main()

        Dim polomer, obsah As Double

        Console.Write("Zadejte polomer kruznice: ")
        polomer = Console.ReadLine

        If polomer > 0 Then
            obsah = 3 / 2 * Math.Sqrt(3) * polomer ^ 2
            Console.WriteLine("Obsah sestiuhelniku: {0:0.000}", obsah)
        Else
            Console.WriteLine("Vypocet nelze provest")
        End If

        Console.ReadLine()

    End Sub

End Module