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
MSGBOX "要求任意兩邊之和大于第三邊"
Exit Function
endif
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 Sub