Programación VB, héroes, ¡por favor ayuden! ! ¡urgente! ! !

Subcomando privado1_Click()

Atenuar a!, b!, c!, s!, p!

reentrar:

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!!"))

Si a = -1 Or b = -1 Or c = -1 Entonces finalice

Si a b gt; c O a c gt; b O b c gt; a Entonces

p = (a b c) / 2

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

Imprimir "El área es:"; s

Else

MsgBox "No se puede forme un triángulo, ¡¡Vuelva a ingresar!!"

GoTo reingresar

End If

End Sub