Private Declare Function InternetSetCookie Lib "wininet.dll" Alias "InternetSetCookieA" _
    (ByVal lpszUrlName As String, ByVal lpszCookieName As String, _
    ByVal lpszCookieData As String) As Boolean

Private Declare Function InternetGetCookie Lib "wininet.dll" Alias "InternetGetCookieA" _

    (ByVal lpszUrlName As String, ByVal lpszCookieName As String, ByVal lpszCookieData As String, _
    lpdwSize As Long) As Boolean

Private Sub cmdMakeCookie_Click()
    Dim blnReturn As Boolean
    blnReturn = InternetSetCookie("http://vba-programmer.com/MyCookie.htm", _
    "MyCookiesName", "Put Cookie Information Here")
    If Not blnReturn Then MsgBox "Make Cookie Operation Failed!", vbCritical
End Sub

Private Sub cmdGetCookie_Click()
    Dim strCookieText As String * 256
    Dim blnReturn As Boolean
    blnReturn = InternetGetCookie("http://vba-programmer/MyCookie.htm", _
    "MyCookiesName", strCookieText, 255)
    If Not blnReturn Then
        MsgBox "Get Cookie Operation Failed", vbCritical
    Else
    MsgBox strCookieText, vbInformation
    End If
End Sub