在局域网环境中，vb 如何获得外网IP地址？

Private Sub Command1_Click()
Dim h As Object, s As String
Set h = CreateObject("Microsoft.XMLHTTP")
h.Open "GET", "http://www.ip138.com/ip2city.asp", 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
End Sub

添加一按钮，就可以获取到。

楼上这程序能获取别的什么么？图片？