Me.ListBox7.Items.AddRange((From value As Integer In li Where value <> 0).Cast(Of Object).ToArray)

Dim ret As Object = wb.Document.InvokeScript("IN.sEm", {" :\\ "})

        Dim values As IEnumerable(Of Integer) =
            {
                1, 2,
                3, 4,
                5, 6,
                10, 11,
                14, 15,
                54, 57,
                58, 60,
                63, 64,
                65, 67
            }

        Dim splits As IEnumerable(Of IEnumerable(Of Integer)) =
            SplitIntoParts(collection:=values, amount:=2, fillEmpty:=True)

Dim concatCol As IEnumerable(Of Integer) = splits(0).Concat(splits(3).Concat(splits(4).Concat(splits(5).Concat(splits(15)))))

 
    ''' <remarks>
    ''' *****************************************************************
    ''' Snippet Title: Split Collection Into Number Of elements
    ''' Code's Author: Elektro
    ''' Date Modified: 31-March-2015
    ''' Usage Example: 
    ''' Dim mainCol As IEnumerable(Of Integer) = {1, 2, 3, 4, 5, 6, 7, 8, 9}
    ''' Dim splittedCols As IEnumerable(Of IEnumerable(Of Integer)) = SplitIntoNumberOfelements(col:=mainCol, amount:=4, fillEmpty:=True, valueToFill:=0)
    ''' splittedCols.ToList.ForEach(Sub(col As IEnumerable(Of Integer))
    '''                                 Debug.WriteLine(String.Join(", ", col))
    '''                             End Sub)
    ''' *****************************************************************
    ''' </remarks>
    ''' <summary>
    ''' Splits an <see cref="IEnumerable(Of T)"/> into secuences with the specified amount of elements each one.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="col">The collection to split.</param>
    ''' <param name="amount">The target elements amount.</param>
    ''' <param name="fillEmpty">If set to <c>true</c>, generates empty elements to fill the last secuence's part amount.</param>
    ''' <param name="valueToFill">An optional value used to fill the last secuence's part amount.</param>
    ''' <returns>IEnumerable(Of IEnumerable(Of T)).</returns>
    Public Shared Function SplitIntoNumberOfelements(Of T)(ByVal col As IEnumerable(Of T),
                                                           ByVal amount As Integer,
                                                           ByVal fillEmpty As Boolean,
                                                           Optional valueToFill As T = Nothing) As IEnumerable(Of IEnumerable(Of T))
 
        Return (From count As Integer In Enumerable.Range(0, CInt(Math.Ceiling(col.Count() / amount)))).
                Select(Function(count)
 
                           Select Case fillEmpty
 
                               Case True
                                   If (col.Count - (count * amount)) >= amount Then
                                       Return col.Skip(count * amount).Take(amount)
 
                                   Else
                                       Return col.Skip(count * amount).Take(amount).
                                                  Concat(Enumerable.Repeat(Of T)(
                                                         valueToFill,
                                                         amount - (col.Count() - (count * amount))))
                                   End If
 
                               Case Else
                                   Return col.Skip(count * amount).Take(amount)
 
                           End Select
 
                       End Function)
 
    End Function

If values.Count < 35 Then
    values = values.Concat(Enumerable.Repeat(Of Integer)(0, (35 - values.Count)))
End If
 
MsgBox(values.Count) ' 35