Dim o Dim res Set o = CreateObject("Microsoft.XMLHTTP") o.open "GET", "http://icanhazip.com", False o.send res = o.responseText Msgbox res