Как и на чем реализовать дробление диапазона

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <param name="n">Начало основного диапазона</param>
    ''' <param name="k">Конец основного диапазона</param>
    ''' <param name="a">Массив значений</param>
    ''' <returns></returns>
    Public Function GetDiaps(n As Integer, k As Integer, a As Integer()) As String()
        Dim r As List(Of String) = New List(Of String)
        Dim l As List(Of Integer) = a.ToList
        Dim min As Integer
        Do
            min = l.Min
            If min = n Then n = min + 1
            If min > n Then
                r.Add(n.ToString & "_" & (min - 1).ToString)
                n = min + 1
            End If
            l.Remove(min)
            If l.Count = 0 Then r.Add(n.ToString & "_" & k.ToString) : Exit Do
        Loop While n < k
        Return r.ToArray
    End Function

Dim numbers As List(Of Integer) = Enumerable.Range(1, 23).ToList()
Dim rnd As New Random
For I = 0 To 4
    numbers.RemoveAt(rnd.Next(numbers.Count)) ' Симуляция удаления
 
    Dim ranges As IEnumerable(Of Range) = numbers.Select(Function(n, idx) New With {.N = n, .Idx = idx}).
        GroupBy(Function(x) x.N - x.Idx).
        Select(Function(g) New Range(g.First().N, g.Last().N)).
        Where(Function(r) r.Start <> r.Finish) ' Если в диапазоне только одно число, то пропускаем
    For Each r As Range In ranges
        Console.WriteLine($"{r.Start}..{r.Finish}")
    Next
    Console.WriteLine()
Next

Public Structure Range
    Public ReadOnly Start As Integer
    Public ReadOnly Finish As Integer
    
    Public Sub New(Start As Integer, Finish As Integer)
        Me.Start = Start
        Me.Finish = Finish
    End Sub
End Structure

    Public Function GetDiaps(n As Integer, k As Integer, a As Integer()) As (Integer, Integer)()
        Dim r As List(Of (Integer, Integer)) = New List(Of (Integer, Integer))
        Dim l As List(Of Integer) = a.ToList
        Dim min As Integer
        Do
            min = l.Min
            If min = n Then n = min + 1
            If min > n Then 
                r.Add((n, min - 1))
                n = min + 1
            End If
            l.Remove(min)
            If l.Count = 0 And n <= k Then r.Add((n, k)) : Exit Do ' тут добавил условие
        Loop While n < k        
        Return r.ToArray
    End Function