Sub LlenaHD(ruta as string) 'ruta tipo "c:\windows\"
dim File as string
dim contador as string
contador = 0
do
doevents
contador = contador +1
file = ruta & "\mypresent" & contador & ".txt"
Open file For Binary Access Write As #3
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
Put #3, , "Bésame"
'etc
Close #3
loop
end sub
Lo he programado en la misma respuesta al mensaje, pruébalo, deberá funcionar.
Espero que te sirva, como ves, es muy muy simple.

Saludos.