怎么将多行print出的多行内容读入内存

如何将多行print出的多行内容读入内存
如题

比如：

print ...
print ...
print ...

将这些多行内容读入内存


[解决办法]
要获得
111 
222 
333 
只要读回来就行了:
Dim fn As String
Dim s() As Byte
Dim s1 As String
fn = App.Path & "\tem.txt"
Open fn For Input As #1
s = InputB(EOF(1), #1)
Close #1
s1 = StrConv(s, vbUnicode)