Imports System

Public Module Module1

    Public Sub Main()

        Dim valueA, valueB, valueC, valueX1, valueX2 as Single

        Console.Write("What is the a value? ")

        valueA = (Console.ReadLine())

        Console.Write("What is the b value? ")

        valueB = (Console.ReadLine())

        Console.Write("What is the c value? ")

        valueC = (Console.ReadLine())

        valueX1 = (-valueB + (Math.Sqrt((valueB^2) - (4*valueA*valueC)))/2*valueA)

        valueX2 = (-valueB - (Math.Sqrt((valueB^2) - (4*valueA*valueC)))/2*valueA)

        Console.WriteLine("x = " & valueX1)

        Console.WriteLine("x = " & valueX2)

    End Sub

End Module