Dim a, b, c, S, P, L As Double

Console.Write("Side a: ")
a = Console.ReadLine()

Console.Write("Side b: ")
b = Console.ReadLine()

Console.Write("Side c: ")
c = Console.ReadLine()

P = a + b + c
L = P / 2

S = Math.Sqrt(L * (L - a) * (L - b) * (L - c))

MsgBox("P = " & P)
MsgBox("S = " & S)