>>28
Sub ネットワーク名取得()
　　With CreateObject("MSXML2.XMLHTTP")
　　　　.Open "GET", "https://whois.nic.ad.jp/cgi-bin/whois_gw?key=182.22.16.251";, False
　　　　.Send
　　　　For Each s In Split(.responseText, vbLf)
　　　　　　If InStr(s, "ネットワーク名") Then Debug.Print s
　　　　Next
　　End With
End Sub