Private Function LoadString(ByVal address As String) As String
 
        Dim Client As New System.Net.WebClient
        If String.IsNullOrWhiteSpace(address) Then Return String.Empty
        address = address.Trim
        address = address.Replace(" "c, "")
        If Not address.StartsWith("http://") Then
            address = "http://" & address
        End If
        Return Client.DownloadString(address)
    End Function

Dim textbox1 As New TextBox
textbox1.Text = " www.google .de "
 
Dim ls As String = LoadString(textbox1.Text)