Cómo escribir programas de cálculo en vbs

Esto es para calcular el área de un triángulo.

private Sub comando1_click

a=CDbl(Text1.text) 'Longitud del lado

b=CDbl( Text2.text) ' Longitud del lado

c=CDbl(Text3.text) 'Longitud del lado

s=(a b c)/2 'Calcular el área del triángulo

Área=Sqr( s*(s-a)*(s-b)*(s-c)) 'Calcular el área del triángulo

Label1.caption = "Área del triángulo ：" CStr(Área)

fin sub