Проблемы с преобразованием кодировки - VB

Формулировка задачи:

Народ, есть один вопросик - нужно преобразовать текст из Win кодировки в DOS кодировку. Может ли кто-то подсказать, как енто можно реализовать.
Заранее спасибо за советы.

Решение задачи: «Проблемы с преобразованием кодировки»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'конвертим из вын в дос</font>
strData = <font color="blue">String</font>(Len(strDataTmp), <font color="teal">" "</font>)
i = CharToOem(strDataTmp, strData)
                        