Question Help getting started Working Schedule

[vendicore]

Hello im a new user to visual basic and i need some help on getting started on my project.

I have made the menu so that works but now i need to code how a worker works nights and weekends.
so how do i get started on this?
witch loop should i use?



the image shows how the menu looks like and how it should work.


info about the project : The worker has to work evry third weekend with start week number six and every sixth week he works nights whith start on week one .
The program must show when he is supposed to workweekends and nights .this should be divided in two parts but only one class.
this part of the program will have its own menu to exit the menu a zero is given as input.

the code so far:

Option Explicit On
Option Strict On

Public Class WorkingSchedule

    Public Sub start()
        Menu2()
        WeekendsToWork()
        Nightstowork()
    End Sub

    Private Sub menu2()

        Dim choice As Integer = -1

        While (choice <> 0)
            WriteMenuText()

            choice = input.readintegerconsole()

            Select Case choice
                Case 0
                    'do nothing

                case 1:
                    WeekendsToWork()
                    Console.ReadKey()
                    Exit Select

                case 2:
                    Nightstowork()
                    Console.ReadKey()

                    Exit Select

            End Select

        End While

    End Sub

    Private Sub WriteMenuText()

        ' WriteMenutText 
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine(" *****************Work schedule *********************")
        Console.WriteLine(" 1.Weekends To Work")
        Console.WriteLine(" 2.Nights To Work")
        Console.WriteLine(" 0.Exit" & Environment.NewLine)
        Console.WriteLine(" *********************************************")
        Console.WriteLine("")
        Console.WriteLine("")

        Console.Write("  Enter choice please: ")

    End Sub

    Private Sub WeekendsToWork()

    End Sub

    Private Sub NightsToWork()

    End Sub

End Class

so i hope anyone can help me get started on this
regards/vendi