Mendapatkan IP Address Internet

Script VBA untuk mendapatkan IP Adress Internet yang sedang digunakan

Function GetIPAddress() As String
    Dim Obj As Object
    Set Obj = CreateObject("MSXML2.XMLHTTP")
    Obj.Open "GET", "https://api.ipify.org", False
    Obj.send
    GetIPAddress = Obj.responseText
End Function