Dim oWeb As HttpWebRequest = HttpWebRequest.Create("http://checkip.dyndns.org/")
            Dim oResponse As HttpWebResponse = oWeb.GetResponse
            Dim stR As New StreamReader(oResponse.GetResponseStream)
            Dim st As String = stR.ReadLine, i As Integer = st.IndexOf("Current" & _
              "IP Address:") + 20, IP As New System.Text.StringBuilder
            Do
                IP.Append(st.Chars(i))
                i += 1
            Loop Until st.Chars(i) = "<"
            Console.WriteLine(IP)
            Console.ReadLine()

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE