Visual Basic.NET - Problema con envio fichero adjuntos

Tengo un problema cuando envio correos electronico a través de código.
necesito enviar correos elecronicos con ficheros adjuntos, el fichero adjunto es un fichero generado por el propio programa, ese fichero tiene que estar comprimido en formato zip. El problema es que cuando envio el fichero en formato texto se envia correctamente, pero cuando intento enviar el fichero comprimido me da un error, no puedo decir el error que da porque cada vez me da uno distinto. Casi siempre es un error de CDO.Message.
El codigo que utilizo es el siguiente:

Public Function envio_email(ByVal Ruta As String)
Dim email As New System.Web.Mail.MailMessage
'Dim adjunto As New System.Web.Mail.MailAttachment("")
Dim adjunto As New System.Web.Mail.MailAttachment(Ruta, Web.Mail.MailEncoding.Base64)
Dim direccion As String
Dim id As Integer
id = FreeFile()
FileOpen(id, App_Path() & "email.log", OpenMode.Input)
Input(id, direccion)
FileClose(id)
email.To = direccion
email.From = "[email protected]"
email.Subject = "Archivos de ticket"
email.Priority = System.Web.Mail.MailPriority.Normal
email.Attachments.Clear()

email.Attachments.Add(adjunto)
System.Web.Mail.SmtpMail.SmtpServer = "smtp.xxxx.com"
Try
System.Web.Mail.SmtpMail.Send(email)
Catch ex As Exception
MsgBox("ERROR" & Err.Description)
End Try
End Function

Gracias, espero respuestas