Dim Enc As System.Text.Encoder
        Dim Dec As System.Text.Decoder
        Dim Text As String = "Ein Text"
        Dim CArr() As Char
        Dim BArr() As Byte
        Enc.GetBytes(Text.ToCharArray, 0, Text.Length, BArr, 0, True)
        BArr = System.Text.Encoding.Convert(System.Text.Encoding.UTF8, _
          System.Text.Encoding.GetEncoding("ISO-8859-1"),Barr)
        Dec.GetChars(BArr, 0, BArr.Length, CArr, 0)

MfG CKing