Recuperar texto del explorer

Ya lo he solucionado, este es el código de la función, se
admiten sugerencias

Dim myClient As WebClient = New WebClient
Dim file As StreamReader
Dim line() As String
Try
' Create an instance of StreamReader to read
from a file.
Dim sr As StreamReader = New StreamReader
(myClient.OpenRead("http://www.showmyip.com/simple"))
'Do
'Solo lo lleemos una vez ya que la ip es lo
primero que devuelve
line = Split(sr.ReadLine(), " ")
Console.WriteLine(line(0))
'Loop Until line Is Nothing
sr.Close()
Return line(0)
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("No se pudo leer la
dirección.")
Console.WriteLine(E.Message)
Finally
Cliente.Dispose()
End Try