Private Sub killCookie()
    Dim i As Long
    Dim strCookies() As String, strCookie() As String
   
    strCookies = Split(Me.WebBrowser1.Document.cookie, ";")
    For i = 0 To UBound(strCookies)
        strCookie = Split(strCookies(i), "=")
        If UBound(strCookie) = 1 Then
            InternetSetCookie Me.WebBrowser1.LocationURL, strCookie(0), ""
        End If
    Next
 
End Sub