radish凡だとTVTestの *.ch2 ファイルは Unicode なので、ch2chset.vbs を使う場合は、以下の3箇所を書き換え。

書き換え前　Set objIn = objFSO.OpenTextFile(strPath, 1)
書き換え後　Set objIn = objFSO.OpenTextFile(strPath, 1, , -1)

書き換え前　Set objOut = objFSO.OpenTextFile(Left(strPath, Len(strPath) - 4) & "().ChSet4.txt", 2, True)
書き換え後　Set objOut = objFSO.OpenTextFile(Left(strPath, Len(strPath) - 4) & "().ChSet4.txt", 2, True, -1)

書き換え前　Set objCh5 = objFSO.OpenTextFile(Left(strPath, InStrRev(strPath, "\")) & "ChSet5.txt", 2, True)
書き換え後　Set objCh5 = objFSO.OpenTextFile(Left(strPath, InStrRev(strPath, "\")) & "ChSet5.txt", 2, True, -1)

（ch2chset.vbs を使うとEDCBのチャンネルスキャンを省略できるの？）