ADODB.Stream でUTF-8をS-JISに変換すると、

nisimo_gt_rさん

ADODB.Stream でUTF-8をS-JISに変換すると、

半角英数字が
(変換前)abc
(変換後)a b c
となってしまい、半角スペースが間に入ってしまいます。

Replace関数でも間を詰めることができず、だめでした。

プログラムは次の通り作成しました。
対応策を教えてください。

テキストファイルを直接読む方法ではなく、
読み込んだ行ごとに変換する前提で教えてください。

作成したプログラム
'-----------------------------------------------------
Public Function UTF8toSJIS(ByRef strUtf8 As String) As String
Dim objStm As Object
Dim buff() As Byte

Set objStm = CreateObject("ADODB.Stream")
objStm.Open
objStm.Type = 1 'Byte型
buff = strUtf8 '変換対象のデータをバイト型変数に格納
objStm.Write = buff

objStm.Position = 0
objStm.Type = 2 'Text型
objStm.Charset = "UTF-8"
UTF8toSJIS = objStm.ReadText

objStm.Close : Set objStm = Nothing
End Function
'-----------------------------------------------------

すみませんが、よろしくお願いします。