Кодировка строки! (win, koi8, dos) - VB

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

Можно ли как-нить узнать в VB, в какой кодировке строка (win, koi8, dos), и затем изменить ее на виндовую (win-1251) поискал в мсдне, есть токо одна функция strconv(), но она делает не то..

Решение задачи: «Кодировка строки! (win, koi8, dos)»

textual
                            Листинг программы 
                        
                            Public Declare Function GetACP Lib 'kernel32' Alias 'GetACP' () As Long
Public Declare Function GetOEMCP Lib 'kernel32' Alias 'GetOEMCP' () As Long