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