Here is a simple way
Sub Delete_Cookies()
Dim sRoot As String
Dim sCookiePath As String
On Error Resume Next
sRoot = Environ("USERPROFILE")
If Len(sRoot) = 0 Then Exit Sub
If Right$(sRoot, 1) <> "\" Then sRoot = sRoot & "\"
sCookiePath = sRoot & "Cookies\"
Kill (sCookiePath & "*.*")
End Sub
Cheers
Shasur
http://www.vbadud.blogspot.com