Can't decode Unicode to OEM

[Just Me]

I copy some text from a DOS window to the clipboard

Then run this

But both messageboxes show the same (incorrect) symbols

Incorrect in that they do not agree with what shows in DOS

See anything wrong???

Dim bDataO As DataObject = Clipboard.GetDataObject()

If bDataO.GetDataPresent(DataFormats.OemText, False) Then

Dim str As String = CType(bDataO.GetData(DataFormats.OemText, False),
String)

MessageBox.Show(str)

Dim lOutEncoding As Encoding = Encoding.GetEncoding(437)

Dim linEncoding As Encoding = Encoding.Unicode

Dim lStrAsBytes As Byte() = linEncoding.GetBytes(str)

Dim lOutEncodingBytes As Byte() = Encoding.Convert(linEncoding,
lOutEncoding, lStrAsBytes)

Dim lOutEncodingChars() As Char = lOutEncoding.GetChars(lOutEncodingBytes)

GetCodePageString = New String(lOutEncodingChars)

MessageBox.Show(GetCodePageString)