Dim groupedValues As List(Of List(Of Integer)) =
    (From i As Integer In Resultss
     Group By i.ToString("00").First Into items = Group
     Select New List(Of Integer) From {items(0), items(1)}
     ).ToList
 
        ListBox3.Items.AddRange(groupedValues.Cast(Of Object).ToArray) 

 constantValues.AddRange(Resultss.ToArray()) <-----variable con numeros con los que formamos las combinaciones
 
 
        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 7
        Dim skipStart As Integer = 0
 
 
        Do Until skipStart = (constantValues.Count - length)
 
            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0
 
            Do Until count = (constantValues.Count - length - skipStart)
 
                combinations.Add(values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList)
 
                Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
 
                count += 1
 
            Loop ' count = (constantValues.Count - length)
 
            skipStart += 1
 
 
        Loop ' skipStart = (constantValues.Count - length)
        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
                             End Sub)
 
        ListBox2.Sorted = True

 constantValues.AddRange(Resultss.ToArray()) 

 Dim xxxxalgo As IEnumerable(Of Integer) 

Dim xxxValues As New List(Of Integer) 

        Dim constantValues As IEnumerable(Of Integer) =
           (
               From Value As Integer
               In (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5).Concat(Result6)).Distinct
               Where Value <= MAX
           )
 
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
       Dim constantValues As New List(Of Integer)
 
       Do Until ...
 
           Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
 
           Do Until ...
 
           Loop
 
       Loop 
 
   End Sub 

Dim Resultss As IEnumerable(Of Integer) =
            (
                From Value As Integer
                In (Result1.Concat(Result2).Concat(Result3).Concat(Result4).Concat(Result5).Concat(Result6)).Distinct
                Where Value <= MAX
            )
 
        ListBox1.Items.AddRange(Resultss.Cast(Of Object).ToArray)
        ListBox1.Sorted = True

 Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)