Public Function Area(a As Double,b As Double,c As Double) As Double
If a + b < c Or a + c < b Or b + c < a Then Exit Function
Dim s As Double
s = 0.5 * (a + b + c)
a = s - a
b = s - b
c = s - c
Area = Sqr(s * a * b * c)
End Function
Private Sub Command1_Click()
Me.Caption = Area(3,4,5)
End Su