aprili in binario e leggi tutto il contenuto

codice:
dim stemp as string
open "Armando.txt" for binary as #1
   open "Antonio.txt" for binary as #2
      stemp = space(lof(2))
      get #2 , , stemp
   close #2
   put #1 ,, stemp & vbcrlf
   put #1 ,, "stringa da programma" & vbcrlf
   open "Arturo.txt" for binary as #2
      stemp = space(lof(2))
      get #2 , , stemp
   close #2
   put #1 ,, stemp 
close #1