Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Console.Writeline("Welcome to my Quadratic Formula Calculator!!!")

        Console.Writeline("Pick a number which will times to x squared")

        'sqr = Console.Readline()

        Dim input As String = Console.Readline()

        If IsNumeric(input) Then

            input = input

        Else

            Console.Writeline("Please put in a numeric value")

            Main()

        End If  

        Console.Writeline("Pick a second number")

        ' = Console.Readline()

        Dim input1 As String = Console.Readline()

        If IsNumeric(input1) Then

            input1 =input1

        Else

            Console.Writeline("Please put in a numeric value")

            Main()

        End If  

        Console.Writeline("Pick the final number")

        'num = Console.Readline()

        Dim input2 As String = Console.ReadLine()

        If IsNumeric(input2) Then

            input2 = input2

        Else

            Console.Writeline("Please put in a numeric value")

            Main()

        End If  

        Console.Writeline("Therefore your equations is " & input &  "x^2 + " & input1 & "x + " & input2)

        Console.Readline()

    End Sub

End Module