De nada, pero déjame hacerte un consejo, ¿sabes lo que estaría muy bien que hagas?, un módulo donde definir todas esas funciones para tus propósitos, que seguro son muchas funciones ya en todo este tiempo... y así, aparte de reducir código, no llenarías tanto código para volverlo un código spaghetti.

Hazme caso, no se si aceptarás mi sugerencia, en caso de que lo hagas no se si al principio pensarás que no te vale la pena (por que creo que te cuesta bastante escribir xD), pero a la larga si, sobre todo para la depuración de posibles fallos, joder, que ahora mismo lo tienes todo mezclao por todos laos.

Incluso podrías crear extensiones de método para ganar mayor simplificación de código.

Un ejemplo inicial:

Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of String))) =
    {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}.GetPairs()
 
For Each pair As KeyValuePair(Of Integer, IEnumerable(Of String)) In pairs
 
    ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
Next pair

+

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Runtime.CompilerServices
 
Module IEnumerableExtensions
 
    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Descripción de lo que hace esta función.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' La colección de origen.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <returns>
    ''' Descripción delo que devuelve esta función.
    ''' </returns>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <exception cref="ArgumentException">
    ''' El valor máximo de la colección debe ser un valor inferior a 10.;col
    ''' </exception>
    ''' ----------------------------------------------------------------------------------------------------
    <Extension>
    <DebuggerHidden>
    <DebuggerStepThrough>
    Public Function GetPairs(ByVal sender As IEnumerable(Of Integer)) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of String)))
 
        If (sender.Max >= 10) Then
            Throw New ArgumentException(paramName:="col", message:="El valor máximo de la colección debe ser un valor inferior a 10.")
 
        Else
            Return From value As Integer In sender
                   Select New KeyValuePair(Of Integer, IEnumerable(Of String))(
                          key:=value,
                          value:=From index As Integer In Enumerable.Range(1, 9)
                                 Where (index <> value)
                                 Select (value & index))
        End If
 
    End Function
 
End Module

Saludos

Hola Luis

No se entiende muy bien lo que necesitas, pero si no me equivoco lo que quieres hacer es añadir ceros a la izquierda a los números menores de 10, para que estos formen una logintud de 2 caracteres, par.

Dim valuesInt As IEnumerable(Of Integer) =
    {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
 
Dim valuesStr As IEnumerable(Of String) =
    From value As Integer In valuesInt
    Select CStr(value).PadLeft(totalWidth:=2, paddingChar:="0"c)
 
Console.WriteLine(String.Join(", ", valuesStr))

Resultado de ejecución:
Saludos

Fíjate en el nuevo parámetro que le añadí:

  Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                              ByVal amount As Integer,
                                              ByVal fillEmpty As Boolean,
                                              Optional ByVal add As Integer = 0,
                                              Optional ByVal skip As Integer = 0
                                             ) As IEnumerable(Of IEnumerable(Of T))
 
      Dim emptyAdded As IEnumerable(Of IEnumerable(Of T)) = Enumerable.Repeat({DirectCast(Nothing, T)}, add)
 
      Return emptyAdded.Concat(
             From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
             Select If(Not fillEmpty,
                       collection.Skip(index * amount).Take(amount),
                       If((collection.Count() - (index * amount)) >= amount,
                          collection.Skip(index * amount).Take(amount),
                          collection.Skip(index * amount).Take(amount).
                                                          Concat(From i As Integer
                                                                 In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                 Select DirectCast(Nothing, T))))
             ).Skip(skip)
 
  End Function

De esa manera, si le asignas un valor de add:=1 al llamar a la función, le añadiras esa cantidad especificada de IEnumerable(Of T) (vacías) al pricipio de la colección, y, aparte, si le asignas un valor de skip:=X, la función devolverá el IEnumerable(Of IEnumerable(Of T)) ignorando la cantidad especificada de elementos de tipo IEnumerable(Of T) al principio de la colección.

Saludos