напишите пожалуйста в Visual Basic это уравнение. Оно простое, но чтот у меня не выходит, спасибо)

S=√p(p-a)(p-b)(p-c) p=(a+b+c)/2 (S=подкоренному выражению )

Dim a As single, b as Single, c as Single
Dim S As single
S=Val(Textbox1)
p=(a+b+c)/2
S=(p*(p-a)*(p-b)*(p-c))^Sqr(0.5) (это тип квадратный корень)
Textbox2=Str(S)

команд батн 2
textbox1 = " "
textbox2 = " "