ご教授よろしくお願いします。

UTF-16のtxtファイルの行数を数えるためVB逆引きHelp一覧表に
あるCSVファイル及びテキストファイルの総行数（件数）を
瞬時に取得を使用させていただきましたがsjisのファイル時
より行数が1・2行多くなってしまいます。

OpenTextFileにTristateTrueをセットしたところ1行で
返ってきます。
sjisファイルと同じ行数にしたいのですが、どのように対処すれば
よいでしょうか？
よろしくお願いします。

自己解決しました。