Programación VB, dados los tres lados de un triángulo, encuentra su área.

Private Sub Form_Click()

Dim a As Integer, b As Integer, c As Integer

a = InputBox("Ingrese la longitud de un lado del triángulo :")

b = InputBox("Ingrese la longitud del segundo lado del triángulo:")

c = InputBox("Ingrese la longitud del tercer lado del triángulo:" )

Si a + b > c Y b + c > a Y a + c > b Entonces

d = (a + b + c) / 2

s = Sqr(d * (d - a) * (d - b) * (d - c))

Imprimir "El área del triángulo es :" & d

Else

Imprimir "No se puede formar un triángulo"

Fin si

End Sub