EventName = "test<br> test(test)"

strData = "<entry xmlns='http://www.w3.org/2005/Atom'" & vbCrLf & _
"xmlns:gd='http://schemas.google.com/g/2005'>" & vbCrLf & _
  " <category scheme='http://schemas.google.com/g/2005#kind'" & vbCrLf & _
  "term='http://schemas.google.com/g/2005#event'></category>" & vbCrLf & _
  " <title type='text'>" & EventName & "</title>" & vbCrLf & _
  "<content type='text'>test</content>" & vbCrLf & _
  "<author>" & vbCrLf & _
    "<name>author</name>" & vbCrLf & _
    "<email>email</email>" & vbCrLf & _
  "</author>" & vbCrLf & _
  "<gd:transparency" & vbCrLf & _
    "value='http://schemas.google.com/g/2005#event.opaque'>" & vbCrLf & _
  "</gd:transparency>" & vbCrLf & _
  "<gd:eventStatus" & vbCrLf & _
    "value='http://schemas.google.com/g/2005#event.confirmed'>" & vbCrLf & _
  "</gd:eventStatus>" & vbCrLf & _
  "<gd:where valueString='Destination'></gd:where>" & vbCrLf & _
"</entry>"


Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

objHTTP.Open "POST", "http://www.google.com/calendar/feeds/default/private/full", False
objHTTP.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Q312461; SV1; .NET CLR 1.0.3705; .NET CLR 1.1.4322)"
objHTTP.SetRequestHeader "content-type", "application/atom+xml"
objHTTP.SetRequestHeader "Authorization", "GoogleLogin auth=<somevalue>"
objHTTP.Send strData