读文本 2.7MB 有字符 数字 汉字 跟英文

我想让以下程序 可以读出2.7MB的文本 有字符 数字 汉字 跟英文 到text1里 用过很多种方法 全是只读了125K的文本 彻底失败了 大家帮我一下
好吗

这个是一个高手写的 用来分页的

新建工程,2个文本框text1,text2, 2个按钮command1和command2
然后,在设计过程中将text1的MultiLine = True
以及ScrollBars = 2

呵呵,其它的都不用动.位置和大小,程序启动时会自己设定的.

完整代码:
Const TxtSpNi$ = "超级无级VB妮可分隔符"

Private Sub Command1_Click()
Text1.Text = ""
If Text2 = "" Then Exit Sub
On Error Resume Next
'Open Text2 For Binary As #1
'Text1.Text = Input(LOF(1), #1)
'Close #1
End Sub

Private Sub Command2_Click()
If Text2 = "" Then Exit Sub
If Text1 = "" Then Exit Sub

Dim tmp, i%, j%, Nfile$

'使用自编分隔函数 SplitTxt(Text1, 50000),呵呵,语法就是 SplitTxt(Text1, 分隔长度汉字个数),我用的是5000
tmp = Split(SplitTxt(Text1, 5000), TxtSpNi)

If InStr(Text2, ".txt") = 0 Then Exit Sub

For i = 0 To UBound

读文本 2.7MB 有字符 数字 汉字 跟英文 1.44MB有多少字符 asp中怎样限制动态文本输出的字符数（只要前几个字符） 如何提取一文本中，有匹配字符的行！ JAVA计算文本字符函数 vb 取得文本字符问题 1063 统计字符数 C编程：统计英文文本 一个字符的单词有多少个 两个字符的单词有多少个 N个字符的单词有多少个 word字数统计里面的字数和字符数有什么区别，字符数是包括什么呢 如何快速的知道文本里的内容有多少个字或字符