gracias!! me sirvio, mejoro el resultado pero sigue sin darme. Te muestro el codigo qqu hice, no te asustes si hay errores!

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
        d = Math.Sqrt(x)
        x = ((b * b) - (4 * a * c))
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        TextBox4.Text = (((-1 * b) + d) / (2 * a))
 
 
    End Sub
End Class

hola q tal, soy nuevo en esto de progrogramar y se me dio por hacer un programa q resuelva las funciones cuadraticas. Pero al llegar a la raiz no supe q acer y aunque busque no lo pude descifrar.Agradeceria q alguien me ayude 

Visual Basic (Declaration) 
Public Shared Function Sqrt ( _
	d As Double _
) As Double
 
Visual Basic (Usage) 
Dim d As Double
Dim returnValue As Double
 
returnValue = Math.Sqrt(d)
 
 

este es el codigo q te da la ayuda de vb, pero no entiendo.
espero q me ayuden, gracias!!