Function TranslateWithGoogle(ByVal stext As String, ByVal language_from As _
  String, ByVal language_to As String) As String
        Dim client As New Net.WebClient
        Dim Url As String
 
        'client.Encoding = System.Text.Encoding.UTF8
 
        'http://translate.google.de/?text=Dies+ist+ein+Test&sl=en&tl=de
        Url = "http://translate.google.de/?text=" & stext & "&sl=" & _
          language_from & "&tl=" & language_to
 
 
 
        Dim übersetzung_vorläufig As String = client.DownloadString(Url)
        'Dim übersetzung_vorläufig2 = client.DownloadData(Url)
        'Dim übersetzung_vorläufig As String = 
        ' System.Text.Encoding.UTF8.GetString(übersetzung_vorläufig2)
 
        Dim StartString As String = "TRANSLATED_TEXT='"
        Dim StopString As String = "';"
 
        Dim StartIndex As Integer = übersetzung_vorläufig.IndexOf(StartString) _
          + StartString.Length
        Dim StopIndex As Integer = übersetzung_vorläufig.IndexOf(StopString, _
        StartIndex)
 
        Dim übersetzung As String = übersetzung_vorläufig.Substring(StartIndex, _
          StopIndex - StartIndex)
        'übersetzung = Convert.ToString ( übersetzung 
        Return ersetzeZeichen(übersetzung)
    End Function

client.Encoding = System.Text.Encoding.UTF8