Come mi avete suggerito ho provato il codice così
e funziona bene:
codice:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceString As String = New System.Net.WebClient().DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
        Dim gs, ns As String
        Dim nn As Integer
        gs = sourceString.Substring(0, 200)
        nn = InStrRev(gs, ",")
        ns = Mid(gs, (nn + 2), 8)
        TextBox1.Text = ns

    End Sub
Grazie mille