Programación Vba para encontrar el área de un triángulo

Sub Encuentra el área del triángulo ()

A = Val(InputBox("Ingrese la longitud del primer lado"))

B = Val(InputBox( "Ingrese la longitud del segundo lado"))

C = Val(InputBox("Ingrese la longitud del tercer lado"))

P = (A B C ) / 2

Si A B gt; C y A C gt; B y B C gt; Entonces

MsgBox "Cumple la condición del triángulo"

S = (P * (P - A) * (P - B) * (P - C)) ^ 0.5

MsgBox "Área del triángulo" & S

Else

MsgBox "Entrada La longitud del lado de no cumple las condiciones de un triángulo"

End If

End Sub