Dim xmlhttp As WinHttp.WinHttpRequest
Set xmlhttp = New WinHttp.WinHttpRequest

Dim var1 As String
var1 = "v=1&tid=UA-000000000-1&cid=123&an=MyAN&av=1.0&t=event&ec=ecThisPage&ea=eaThisPage&el=elThisPage&sc=start&dt=Rodeos&dr=http%3A%2F%2FRodeos.tb&dl=http%3A%2F%2Ffoo.com%2Fhome%3Fa%3Db"

xmlhttp.Open "POST", "http://www.google-analytics.com/collect", False
xmlhttp.send var1