[lchou]

Хм... А в какой кодировке файлы?
Ну или попробуйте здесь менять последний параметр на 0, -1, -2

Код:

Set vStreamSrc1 = fso.OpenTextFile(FILE_SRC1, 1, False, 0)
Set vStreamSrc2 = fso.OpenTextFile(FILE_SRC2, 1, False, 0)
Set vStreamDest = fso.OpenTextFile(FILE_DEST, 2, True, 0)