不知你是否能看明白.
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