Ma l'errore lo hai in

Open data4 For Binary As #1

o in

Open fname For Binary As #1

?


P.S. Se non includi il codice all'interno dei tag CODE, e' molto difficile seguirlo per esaminarlo e darti una risposta ...