Public Class Equation
    Private a, b, c As Double
    Public Sub New(ByVal Atext As String, ByVal Btext As String, ByVal CText As String)
        a = CDbl(Atext)
        b = CDbl(Btext)
        c = CDbl(CText)
    End Sub
    Public Function Solve() As String
        Dim delta As Double
        Dim x1, x2 As Double
        delta = b ^ 2 - 4 * a * c
        If delta < 0 Then
            Return ("Delta < 0; no solutions")
        Else
            x1 = (-b + Math.Sqrt(delta)) / 4 * a * c
            x2 = (-b - Math.Sqrt(delta)) / 4 * a * c
            Return ("Solved: x1 = " & CStr(x1) & " x2 = " & CStr(x2))
        End If
    End Function

End Class