he portado la función para quitar el ZoneId que hice en AutoIt a VB6 a petición de un usuario.
'Autor: Blau
'Arreglado y Mejorado por: Blader
'Ejemplo de uso:
'RemoveZoneID ("C:\Users\PCNEW\Downloads\avira_es_av_560ce95476d95__ws.EXE")
Private Declare Function DeleteFileA Lib "kernel32" (ByVal lpFileName As String) As Boolean
Function RemoveZoneID(sFileName As String)
DeleteFileA (sFileName & ":Zone.Identifier")
End Function
EDIT:Gracias a Blader por la correción.