大量の文字列を格納したいのですがstring型だと足りません…

Dim テキストの内容 As String
Dim 全テキスト As String
〜省略〜
Do Until EOF(ファイル番号) = True
Line Input #ファイル番号, テキストの内容
全テキスト = 全テキスト & vbNewLine & テキストの内容
Loop

Close #ファイル番号
Text1.Text = 全テキスト
〜省略〜

と言う風にやろうとしてるのですが大量の文字列を読みこんだ時に
「メモリが足りません」となります。こういった場合、どうすれば
宜しいのでしょうか？
それともう一つ質問なのですがやはり変数の日本語はまずいでしょうか？
たまたま買った初心者用参考書がそうだったもので・・・