[VB6] Zip appeso ad un file ed Antivirus

[otti]

Ho creato un programma installer.exe a cui appendo con questa routine:

Private Sub AppendToExe(exefile$, filetoappend$, Stringa$, StringaFine)
    Dim MFile As Integer
    MFile = FreeFile
    Open filetoappend$ For Binary As MFile
    filedata$ = String(LOF(MFile), " ")
    Get MFile, , filedata$
    Close MFile
        
    MFile = FreeFile
    Open exefile$ For Binary As MFile
    F = LOF(MFile)
    Seek MFile, F + 1
    filedata$ = Stringa$ & filedata$ & StringaFine
    Put MFile, , filedata$
    Close MFile
End Sub

Un file zip contenente tutti i file che devo installare. Quando viene lanciato il file Installer.exe lui si toglie il file zip appeso, lo scompatta e copia i file.
Ultimamente però molti antivirus non lasciano partire l'installer.exe perchè lo credono infetto dallo zip.

Potete suggerirmi un altro metodo per raggruppare il file .exe e lo zip?
Grazie Otti.