Si no sabes la funcion para raiz cuadrada (Math.Sqr) puedes implementarte tu propia función:

Public Function Raiz(n As Integer) As Double
Dim a As Double
a = n ^ 0.5
Raiz = a
End Function
 
Private Sub Command1_Click()
Dim b As Double
b = Raiz(8)
MsgBox b
End Sub

Y con la función que trae el VB:

Private Sub Command1_Click()
MsgBox Math.Sqr(8)
End Sub

Un Saludo 

No entiendo exactamente que quieres hacer....as puesto el codigo al reves....

Public Class Form1
 
    'Programa para sacar las raices en una funcion cuadratica
    'por ahora solo raiz positiva
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Double
        Dim d As Double
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        TextBox4.Text = (((-1 * b) + d) / (2 * a))
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        x = ((b * b) - (4 * a * c))
        d = Math.Sqrt(x)
    End Sub
End Class

Lo que quiero es q al apretar un boton (luego de haber ingresado los 3 valores en los tres textbox's ) me calcule la raiz positiva de la funcion cuadratica, considerando que el textbox1  es el numero en el cual la x esta elevada al cuadrado(A), el textbox2 es el numero el cual tiene x a la 1(B) y el textbox3 es el numero sin x(C).

 (f(x) = a x2 + b x + c).
Supongo que conocen la funcion y la resoluciòn.

Espero q me entiendan...quedo re mezclado...