Como calcular a apótema de um polígono regular de N lados em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler a quantidade de lados
    Console.Write("Informe a quantidade de lados: ")
    Dim lados As Integer = Int32.Parse(Console.ReadLine())

    ' vamos ler o comprimento dos lados
    Console.Write("Informe o comprimento dos lados: ")
    Dim comprimento As Integer = Int32.Parse(Console.ReadLine())

    ' e agora calculamos a apótema dos polígono
    Dim apotema As Double = CalcularApotema(lados, comprimento)

    ' e mostramos o resultado
    Console.WriteLine("A apótema do polígono é: " & apotema)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

  ' função que calcula e retorna a apótema de um
  ' polítono regular
  Function CalcularApotema(lados As Integer, comprimento _
    As Integer) As Double
    ' a quantidade de lados e o comprimento deles
    ' não podem ser negativos
    If ((lados < 0) Or (comprimento < 0)) Then
      Return -1
    End If

    ' calculamos a apótema
    Return (comprimento / (2 * Math.Tan((180 / lados) _
      * Math.PI / 180)))
  End Function

End Module