最简单办法:
Dim h As Object, s As String
Set h = CreateObject("Microsoft.XMLHTTP")
h.Open "GET", "67bK9s2c8@1M7q4)9K6b7g2)9J5c8W2)9J5c8Y4N6%4N6#2)9J5k6h3W2H3x3e0x3^5i4K6u0W2j5$3!0E0i4K6u0r3K9i4l9J5j5$3W2@1P5g2)9J5k6h3q4K6M7l9`.`.", False
h.Send
If h.ReadyState = 4 Then
s = StrConv(h.Responsebody, vbUnicode)
End If
If InStr(s, "[") > 0 And InStr(s, "]") > 0 Then
MsgBox Split(Split(s, "[")(1), "]")(0)
Else
MsgBox "IP获取失败"
End If