че то в этом духе! смотря куда тебе выводить надо...

public function asdf()
dim a,b,c,p,r as integer
a=3
b=3
c=4
p=(a+b+c)/2
R=a*b*c/((4*p*(p-a)*(p-b)*(p-c))^0.5)
msgbox(Cstr(Round(R,2)))
end function


во подредактировал что б лучше смотрелось