VB6.0での質問です。

テキストボックスの表示文字数や行数の限界は有るのでしょうか？
テキストファイル読み込み、それをテキストボックスに表示させるプログラムを書いたのですが
90kbのテキストファイルを表示させようとした場合3分の2程度表示され、それ以降がなぜかカットされてしまいます。
全てを表示させる手があれば教えてほしいです。
ソースは以下です。

Private Sub Command1_Click()
' テキストを読みこむ

Dim fn As Integer
fn = FreeFile

Open "サンプル.txt" For Input As #fn
Text1.Text = StrConv(InputB(LOF(1), #fn), vbUnicode)
Close #fn