Em princípio, me parece que a solução indicata por [Motta][1] seria a mais adequada (no caso de os elementos em `listaNotaDHSolColeta` também estarem vindo de uma consulta à base de dados).

Em todo caso, se seu intuito é realizar a consulta em etapas, cada uma delas com um grupo de "n" números de nota, seu ponto de partida é dividir seu array em grupos de "n" elementos. Você pode usar a função abaixo para fazer isso (como não sei o tipo de `listaNotaDHSolColeta`, fiz a função genérica, mas poderia também ter usado o tipo `Object`):

    Function Pacotes(Of T)(lista As IEnumerable(Of T), elementos As Integer) As T()()
        Dim dicItens As New Dictionary(Of Integer, T), dicGrupos As New Dictionary(Of Integer, List(Of T)), iGrupo As Integer
        For Each item As T In lista
            dicItens(dicItens.Count) = item
        Next
        For Each kvpItem As KeyValuePair(Of Integer, T) In dicItens
            iGrupo = kvpItem.Key \ elementos
            If Not dicGrupos.ContainsKey(iGrupo) Then
                dicGrupos(iGrupo) = New List(Of T)
            End If
            dicGrupos(iGrupo).Add(kvpItem.Value)
        Next
        Return dicGrupos.Select(Function(kvp) kvp.Value.ToArray).ToArray
    End Function

Você pode utilizá-la assim:

    Dim gruposNotaDHSolColeta = Pacotes(listaNotaDHSolColeta, 1000)


  [1]: https://pt.stackoverflow.com/users/5005/motta