'Dim stream As Stream = Nothing
        'Dim writer As StreamWriter = New StreamWriter(stream)
        'Dim myString = task.getDescription
        'Dim enc As Encoding = Nothing
        'Dim byteArray As Byte() = enc.GetBytes(myString)
        'stream.Write(byteArray, 0, byteArray.Length)
 
        Dim writer As New MemoryStream(Encoding.UTF8.GetBytes( _
          task.getDescription))
 
        Dim RichText
        RichText = Bez1.GetEditObject(3)
        RichText.LoadFromStream(writer, 1, False, False)
        RichText.Save()