Visual basic-el hogy lehet megcsinálni a héron képletet?

De csak mert beadandót kellene írnom, de rohadtul nincs hangulatom hozzá.

Imports System.Console

Imports System.Math

Module Module1

Sub Main()

Title = "Heron's formula"

Dim valid As Boolean = False

Dim a As Integer

Dim b As Integer

Dim c As Integer

Do

WriteLine("Adja meg a 3 oldalt, a, b, c sorrendben!")

Write("a: ")

a = ReadLine()

Write("b: ")

b = ReadLine()

Write("c: ")

c = ReadLine()

valid = ((a < (b + c)) And (b < (a + c)) And (c < (a + b)))

If (Not valid) Then

WriteLine("Hibás oldalak")

End If

Loop While (Not valid)

Dim s As Double = getS(a, b, c)

WriteLine("A háromszök területe: " & heronsFormula(s, a, b, c))

ReadKey()

End Sub

Private Function getS(ByVal sideA As Integer, ByVal sideB As Integer, ByVal sideC As Integer) As Double

Return (sideA + sideB + sideC) / 2

End Function

Private Function heronsFormula(ByVal s As Double, ByVal sideA As Integer, ByVal sideB As Integer, ByVal sideC As Integer) As Double

Return Sqrt(s * (s - sideA) * (s - sideB) * (s - sideC))

End Function

End Module