不知你是否能看明白.
Private Sub Command1_Click()
Dim s As String
Dim r As String
Open "d:\data.txt" For Output As #1
Print #1, "vb world"
Close
Open "d:\data.txt" For Input As #1
Open "d:\copy.txt" For Output As #2
Input #1, s
Print #2, s
Close
Open "d:\copy.txt" For Input As #1
Input #1, r
Close
Print r
End Sub