Visual Basic - Nº maximo de archivos a comprimir

Hola muy buenas de nuevo, vuelvo a dar la lata con la compresion de archivos. Les cuento:
Encontre un programa donde comprimia archivos que es el siguiente:
http://www.elguille.info/colabora/vb/zip32dll.htm.
Tuve un problemilla con este programa que ya lo solucione, pero ahora tengo otro. Creo que con el codigo de este programa no se pueden comprimir mas de 100 archivos, es esto cierto?? Si es asi me gustaria saber si hay alguna forma de solucionar este problema y si no a ver si me pueden facilitar alguno otro codigo con el que pueda comprimir archivos sin que se me reduzca el nombre de los mismo como pasa con el pkzip.

Muchas gracias.

Un saludo

' esto te dice que sean solo 100
Public Type ZIPnames

s(0 To 99) As String

End Type

reemplaza el 99 por el valor que necesites

Muchas gracias Jaime, lo he probaldo y me funciona correctamente, lo que pasa es que no me deja ponerle mas de 3999.
Le he puesto :

Public Type ZIPnames
s(0 To 3999) As String
End Type

Con esto lo hace bien, pero si pongo :

Public Type ZIPnames
s(0 To 4999) As String
End Type

A la hora de depurarlo me salta un mensaje cuando lo compilo que dice:
"Demasiadas variables locales no estaticas"
no se si no deja poner mas de 4000 archivos, sabes si esto es asi?, sino no importa porque con esta cantidad me viene bien.

Muchas gracias de nuevo.

Un saludo.

como te dice el mensaje, "Demasiadas variables locales no estaticas" , lo que indica que se estan declarando demasiadas variables. no tiene nada que ver con que no se puedan mas de 4000. busca en google ese mensaje de error, por ahi seguro encuentras la respuesta.