Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "https://2ip.io", False
o.SetRequestHeader "User-Agent", "curl/8.8.0"
o.send
ip=Trim(o.responseText)
echo ip
if Len(ip)=0 then echo vbNewLine