VB.net 2015 如何获取外网IP并保存到软件目录下的IP.txt文件

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim str As String
        str = Me.WebBrowser1.Document.Body.InnerHtml
        Dim a As Integer = 0
        Dim b As Integer = 0
        a = InStr(str, "[")
        b = InStr(str, "]")
        TextBox1.Text = Mid(str, a + 1, b - a - 1)

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       Me.WebBrowser1.Navigate("
)
    End Sub
End Class

网页上显示的有点问题，form1_load 中代码是：Me.WebBrowser1.Navigate("http://1111.ip138.com/ic.asp")

原理：访问查IP网页后，获取网页上显示的本机外网ip地址