メモ帳みたいにするには？

JANDY  2001-02-18 22:00:31  No: 103529  IP: [192.*.*.*]

VB6でテキストファイルを開いて
そのままテキストボックスに入れたいのですが
どうやっても文字化けしてしまい
うまくいきません。
どうすれば良いのでしょう？
できれば簡単なプログラムで教えて下さい。

編集 削除
MADIA とPAPY  URL  2001-02-20 00:06:45  No: 103530  IP: [192.*.*.*]

ソースふぃあるを記述してもらえませんか？
どこが原因かわからないので。

編集 削除
JANDY  2001-02-20 21:18:31  No: 103531  IP: [192.*.*.*]

Open file1.FileName For Input As 1
        Text1.Text = InputB$(LOF(1), #1)
   Close 1

です。
やっぱし２行目ですよねぇ？

編集 削除
MADIA  URL  2001-02-22 23:29:49  No: 103532  IP: [192.*.*.*]

う〜ん。
２行目ですね。
バイト型でデータを取得しているようですが、バイト型で良いんですか？
テキスト型でなくて

編集 削除
JANDY  2001-02-24 16:55:02  No: 103533  IP: [192.*.*.*]

テキスト型にしたいのですが・・・

編集 削除
MADIA  URL  2001-02-25 10:48:42  No: 103534  IP: [192.*.*.*]

LOFは１バイト取得の関数です。

Open file1.FileName For Input As 1
Text1.Text = Input(1, #1)  'これで１文字取得する
Close 1

編集 削除
たかみちえ  URL  2001-03-30 13:53:22  No: 103535  IP: [192.*.*.*]

http://ww2.tiki.ne.jp/~kotb/
ここでテキストファイルをすばやく読みこむ方法を教えてもらえます。
  とくに不具合はなさそうなので、特別な場合でなければ、
これを使うといいと思います。
1メガ以上のファイルも、これなら何とか読めます。
やっぱり、時間かかりますけど^^;

編集 削除
こころ  URL  2001-05-27 00:01:05  No: 103536  IP: [192.*.*.*]

一応、念のために補足しますが
ファイル番号はFreeFileを使用して求めて下さい。
いちいち、サンプルにFreeFileを使うのはあれ、ってことで
みなさん直値で書いているとは思いますが
初心者の方は注意しましょう。

FreeFileが返す値以外を使用した場合、
それが原因でファイルオープンが失敗する場合があります。

一応、初心者掲示板なので書いておきました。

編集 削除