使用Seltext属性
例如下面的代码

Dim InputData     CommonDialog1.Action = 1     Open CommonDialog1.FileName For Input As #1     Do While Not EOF(1)        Line Input #1, InputData        Text1.SelText = InputData & vbCrLf     Loop     Close #1

如果行多，慢在了循环上，直接读全部记录确实很快。

用RichTextbox吧。