Its hard to explain but i needs some assistence : Module Module1

    Function UnexpectedInput(y, x)

        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("Unexpected Input ! ( " & y & " ) ")
        Console.WriteLine("Please Try Again...")
        Console.ResetColor()

        Console.WriteLine("")
        Return x

    End Function

    Dim choice As String

    Sub Main()

        Console.WriteLine("Please Register to use this program. If you already have an account please choose Loign.")
        Space(1)
        Console.WriteLine("1. Login ")
        Console.WriteLine("2. Register ")
        Console.WriteLine("3. Exit ")
        Space(1)
        Console.WriteLine("##########################")
        choice = Console.ReadLine()
        Console.WriteLine("##########################")

        If choice = "1" Then
            Console.WriteLine("Login()")
            Console.ReadLine()
        ElseIf choice = "2" Then
            Console.WriteLine("Register()")
            Console.ReadLine()
        ElseIf choice = "3" Then
            Console.WriteLine("Exitnow()")
            Console.ReadLine()
        Else
            UnexpectedInput(choice, "Main()")
        End If

    End Sub

End Module


------------------------------------------------------------------------------

The return x doesn't work it just closes the application. I had it working and now it doesn't work... I'm completely stuck and I'm a newbie so if you do fix this please explain how and why it wasn't working in fairly normal words . Thank you for your time and please get back to me ASAP :) XD

