Problems with Unicode data in Clipboard

[passs]

Hi everybody,

Does someone know how to fix such problem:
I have an app in which there should be a possibility to copy/past unicode data into app and from it.
I have such code:
If EditOperation = enmEditOperation.Paste Then

If Clipboard.GetDataObject().GetDataPresent(DataFormats.UnicodeText) Then

txtBox.SelectedText = Clipboard.GetDataObject().GetData(DataFormats.UnicodeText)
End If
Else
Dim myObj As New DataObject
myObj.SetData(DataFormats.UnicodeText, True, txtBox.SelectedText) 'DataFormats.UnicodeText, txtBox.SelectedText)

Clipboard.SetDataObject(myObj, True)
If EditOperation = enmEditOperation.Cut Then

txtBox.SelectedText = ""
End If
End If

It works pretty fine with inserting data into app, all characters display fine. But if I have some data in this app (textbox) something with ieroglifs, russian/german characters and I copy such string into clipboard and then try to paste it into any program except word (it works fine) I get these rectangles instead of symbols.

Any ideas?

Thanks a lot!
Alex