Unable to get user input to work properly

I am trying to get user input to work properly so that when the user enters their choice from a menu, it will take the user to the next menu (or to the actual menu function). For some reason, when the user enters their "selection", the program automatically ends. I'm not sure what I am doing wrong. My cose (just for the main menu) is shown below.

Code:

Sub Main()
        Dim Choice As string
        Console.Clear()
        Console.WriteLine("                                Business Programs")
        For i = 1 To 5
            Console.WriteLine("")
        Next
        Console.WriteLine("          1.  Management Utilities")
        Console.WriteLine("          2.  Management Decision Making")
        Console.WriteLine("          3.  Accountant's Helpers")
        Console.WriteLine("          4.  Time Is Money")
        Console.WriteLine("")
        Console.WriteLine("          5.  Exit Program")
        Console.WriteLine("")
        Console.WriteLine("                                  Your Choice? ")
        Choice = Console.Read()
        While (Choice < 6)
            If (Choice = 1) Then
                ManagementUtilities()
            ElseIf (Choice = 2) Then
                ManagementDecisionMaking()
            ElseIf (Choice = 3) Then
                AccountantsHelpers()
            ElseIf (Choice = 4) Then
                TimeIsMoney()
            ElseIf Choice = 5 Then
                End
            End If
        End While
    End Sub