Vb Code

can anyone help me with the solution to this vb 6.0 code for almighty formular, cause i'm having
problem with the SQUARE ROOT

    dim a, b, c, x1,x 2 as double
    a=val(text1.text)
    b=val(text2.text)
    c=val(text3.text)

    x1= (-b+sqrt(b^2-4*a*c))/(2*a)
    x2= (-b-sqrt(b^2-4*a*c))/(2*a)
   
    text4.text= x1
    text5.text= x2

please I NEED VB 6.0 CODE  cause i'm having problem with the square root

thanx a lot IG