Imports System

Imports System.Linq

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim start As Integer = 0

        Dim seqSize As Integer = 8

        Dim maxValue As Integer = 20

        ' Generate your first set

        Dim set1 = GenerateSet(start, seqSize, maxValue, start)

        ' Output set1

        Console.WriteLine(String.Join(",", set1.ToArray()))

        ' Generate another set

        Dim set2 = GenerateSet(start, seqSize, maxValue, start)

        Console.WriteLine(String.Join(",", set2.ToArray()))

        ' Generate another set

        Dim set3 = GenerateSet(start, seqSize, maxValue, start)

        Console.WriteLine(String.Join(",", set3.ToArray()))

        ' Generate another set

        Dim set4 = GenerateSet(start, seqSize, maxValue, start)

        Console.WriteLine(String.Join(",", set4.ToArray()))

    End Sub

    Public Function GenerateSet(startingInteger As Integer, sequenceSize As Integer, maxValue As Integer, ByRef lastValue As Integer) As IEnumerable(Of Integer)

        ' Build your list (use a fix-up to ignore zeros)

        Dim values = Enumerable.Range(startingInteger, sequenceSize).[Select](Function(x) (x Mod maxValue) + 1)

        ' Store your last value

        lastValue = values.LastOrDefault()

        Return values

    End Function

End Module