Kopiering af filer???

Jeg laver en fil på ca 90 Mb, her i denne rutine, men hvordan går jeg sådan at den samtidigt kopierer den fil som er blevet lavet, og fordobler den, dvs at den "appender" til en anden fil.
F.eks

text.1 original ca 90 Mb
text.2 kopi af original  180 Mb

Dim i, u, o, p As Integer
Dim name2 As Integer

Private Sub Command1_Click()
For o = 0 To 1
  name2 = name2 + 1
    Open "d:\text." & name2 For Append As #1
      For u = 0 To 300
        For i = 0 To 300
          For p = 0 To 10
            Print #1, "10010101010101010101010101010101010101010"
          Next p
        Next i
      Next u
Close #1
Next o
End Sub