给个代码参考,是将文本全部读入的:
Private Sub Command1_Click() Dim strSj As String Dim s As String Open "c:\10.txt" For Input As #1 Do Until EOF(1) Line Input #1, s strSj = strSj & s & vbCrLf Loop Close #1 Text1 = strSj '设置Text的属性MultiLine为TrueEnd Sub
有偿帮你做需要吗