Borrar Archivos temporales de Internet

Bunas tardes bajo archivos con este codigo, pero necesito tener el archivo
mas actualizado que ponen, si la corro antes, no me baja el archivo mas
actualizado, para arreglarlo necesito borrar archivos temporales de internet
manualmente, Herramientas, Opciones de Internet, Eliminar
Archivos

Me dijo principiante, por que sigo aprendiendo gracias a este foro he
aprendido mas en este foro que en todos los libros que he comprado ( son
varios).

Espero que me pudas ayudar (otra vez) por favor, debi haber estudiado para
esto, solo me queda aprender por mi cuenta.

Te expongo el codigo.

Private Declare Function URLDownloadToFile Lib "urlmon" Alias
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim strArchivo As String



Sub Bajar_Archivos_Intenet()
Application.Cursor = xlWait '[o = xlIBeam o = xlNorthwestArrow]
Application.StatusBar = "Espere un momento Bajando Vectores..."
Application.ScreenUpdating = False
strArchivo = Format(Date, "yyyymmdd")
'URLDownloadToFile 0,
"http://IVANZAENS:ZAENSIVAN@www.precios.com.mx/pip-files/OtrosArchivos/ivansaenz/" & "PGN01_VD" & strArchivo & "_2.zip", "c:\PERSONALIZADO.zip", 0, 0



Application.Cursor = xlDefault
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

Muchas gracias.

Saludos.