>Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True)

ここを

Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True, True)

にしたんじゃダメか？
出力内容がUNICODEになっちまうけど。
(SJISには無い文字コードみたいだからそうするしかないんだけどね。)