Error de compilación de vb: parámetros obligatorios

Subcomando privado1_Click()

Atenuar a como doble, b como doble, c como doble

Atenuar s como doble, área como doble, r como entero

a = Val(Texto1)

b = Val(Texto2)

c = Val(Texto3)

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

s = (a b c) / 2

área = Sqr(s * (s - a) * (s - b) * (s - c))

MsgBox "El área del triángulo es:" amp Str(área), , "Programa para calcular el área del triángulo"

Else

MsgBox "Los tres lados de entrada no pueden formar un triángulo"

End If

End Sub

Private Sub Form_Load ()

Texto1 = "40"

Texto2 = "50"

Texto3 = "80"

Título1. Cálculo"

Fin Sub