えと、質問

VB6にて、テキスト形式のファイルを指定してやれば
そのファイルの漢字コードの形式（JISとかEUCとかShift_JISとか）
を返すような関数を作りたいです。
漢字コードなんて、どうやって判別すればいいんでしょうか。
いろいろと要りようなので頑張っているのですが・・・ぜんぜんです。