Private Sub Command1_Click()Open "d:\aa.txt" For Input As #1Open "d:\bb.txt" For Append As #2Do Until EOF(1)Line Input #1, aPrint #2, aLoopClose (1)Close (2)End Sub