Compactação Vb.net

Boa tarde a todos

Estou com problema no código de uma aplicação e acredito que possam me ajudar.
Eu trabalho em uma empresa onde precisamos enviar relatórios no final de semana via sistema interno. O problema é que os

relatórios são gerados pelos usuários e cada um deles "jogam onde querem" os arquivos.
Como nosso sistema só aceita arquivos zipados e embora já tenhamos ensinado esse processo, eles acabam não fazendo ou

quando fazem, salvam no meio dos próprios documentos.
Pensando nisso e já que estou iniciando na programação, pensei em criar uma ferramenta que fizesse esse trabalho.
Ela localiza no servidor todos os relatórios e compacta.

A parte de localização eu já consegui pelo código abaixo

For Each foundFile As String In My.Computer.FileSystem.GetFiles("Z:\C\Sysmon",

Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
ListBox1.Items.Add(FoundFile)'Apenas exemplo pra retornar os arquivos filtrados(TXT)
Next


E a parte de compactar eu também consegui com esse código

Using zip As New ZipFile
zip.AddFile(foundFile)
zip.Save("C:\Users\TI\Desktop\Rel.zip")
End Using

O problema é que a parte zip.AddFile(FoundFile) só compacta um arquivo.
Agora sim a minha pergunta rsrs...
Como eu posso compactar cada arquivo a medida que ele encontrar?
OU se possível, compactar todos que possuem a extensão TXT?

Agradeço a ajuda de todos.