HTML-Sonderzeichen in ASCII-Sonderzeichen konvertieren

Алло"

привет (Priviet)

Алло

привет

Алло

Алло"

Алло

System.Web.HttpUtility.HtmlDecode(text)

System.Text.Encoding.Default

Public Class Form1
    Dim temp As String, eingang As String = "de", ausgang As String = "en"  

    Public Function TranslateText(ByVal TextToTranslate As String, ByVal lngInput As String, ByVal lngOutput As String) As String
        Dim result As String
        Dim url As String = [String].Format("http://www.google.com/translate_t?hl=en&ie=UTF8&text={0}&langpair={1}|{2}", TextToTranslate, lngInput, lngOutput)  
        Dim webClient As New Net.WebClient()
        webClient.Encoding = System.Text.Encoding.Default
        result = webClient.DownloadString(url)
        Dim match As String = "id=result_box"  
        Dim i As Integer = result.IndexOf(match) + 20
        Dim f As Integer = result.IndexOf(match) + 500
        result = Mid(result, i, f)
        result = Mid(result, 1, result.IndexOf("</div>"))  
        result = result.Replace("<span title=", "")  
        result = result.Replace("</span>", "")  
        result = result.Replace("&#39;", "'")  
        result = result.Substring(result.LastIndexOf(">") + 1)  
        Return result
    End Function

    Private Sub Input_Box_TextChanged() Handles Input_Box.TextChanged
        Select Case ComboBox1.SelectedItem
            Case "Deutsch"  
                eingang = "de"  
            Case "Englisch"  
                eingang = "en"  
            Case "Französisch"  
                eingang = "fr"  
        End Select

        Select Case ComboBox2.SelectedItem
            Case "Deutsch"  
                ausgang = "de"  
            Case "Englisch"  
                ausgang = "en"  
            Case "Französisch"  
                ausgang = "fr"  
        End Select

        Output_Box.Text = TranslateText(Input_Box.Text, eingang, ausgang)
    End Sub
End Class