Merhaba,
Public Function Haluk_Ip(ipAddress)
'Haluk - 15/11/2019
'E-posta: sa4truss@Link ve Reklam İçerikli Paylaşımlar Engellenme Sebebidir.
'
Dim strURL As String, XDoc As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False
XDoc.validateOnParse = False
strURL = "http://ip-api.com/xml/"...