Выбор кодировки при "Open filename For Input As #1"

[ShuR]

Приветствую.
Подскажите пожалуйсто, как можно изменить кодировку файла открываемого как "Open filename For Input As #1" ( подобно тому, как это деалется при "Workbooks.OpenText ... " при помощи параметра Origin).

[Teslenko_EA]

Здравствуйте ShuR.
Для изменения кодировки DOS - Win и наоборот можно использовать следующие функции:

Код: Выделить всё

Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Function DW(s$)as String
  DW = Space$(Len(s))
  OemToChar s, DW
End Sub
Function WD(s$)as String
  WD = Space$(Len(s))
  CharToOem s, WD
End Sub

Евгений.

[ShuR]

Teslenko_EA.
Большое спасибо за помошь. Очень помогли.

[Teslenko_EA]

ShuR, опечатка:
функции закрываются конечно же End Function, а не End Sub. извините
Евгений.

[ShuR]

ShuR, опечатка:
функции закрываются конечно же End Function, а не End Sub. извините
Евгений.

МЫСЛЬ и с опечаткой ясна, за неё и благодарен.