Programación VB, ¡por favor dame un consejo!

Función?mj(L1?As?Single,?L2?As?Single)?As?Single

mj?=?(L1?*?L2)? /?2

MsgBox?"El área del triángulo es: "? ?Str(mj)

Fin?Función

Privado?Sub? Form_Click()

Dim? ?vbCrLf? ?vbCrLf? ?"Por ejemplo: ?2|3? significa ingresar una longitud de lado 2 y una longitud variable 3", ?" entrada ",?" 2| 3"),? "|")

Si UBound(a) gt;=?2?, entonces

MsgBox?"¡Error de entrada de datos!!"

Else

Else

MsgBox? p>

Llamar?mj(Val(a(0)),? (Val(a(1))))

¿Fin?Si

¿Fin?Sub