Imports System

Public Module Module1

    Public Sub Main()

        Dim userChoice as integer = 3

        Dim i as integer = 0

        Dim patientName as string

        Dim patients(9) as string

        While userChoice = 3

        Console.WriteLine("Welcome to Pinderfield General Hospital - part of the Mid Yorks NHS Trust")

        Console.WriteLine("To check in for an appointment please enter 1. To see your position in the Queue, click 2.")

        userChoice = Console.ReadLine

        If userChoice = 1 then

                If i > 10

                    Console.WriteLine("Please enter your name")

            patients(i) = Console.ReadLine()

            i=i+1

                Console.WriteLine("You have succesfully been checked in and you are now position: " & i)

                userChoice = 3

                End If 

            Else If userChoice = 2

            Console.WriteLine("What is your name?")

            patientName = Console.ReadLine()

                Console.WriteLine("You have been checked in and you are now position " & i)

                    userChoice = 3

                Else 

                    userChoice = 3

        End If 

        End While 

    End Sub

End Module