Originariamente inviato da eziogsv
Mah, a parte che manca un: Close #1

ma qui probabilmente semplicemente non lo avrai copiato, e che a mio parere è buona norma dare una estensione al file, non vedo problemi nel codice riportato.

Prova ad inserire un:

codice:
On Error Goto err_handler  

 'il codice

 err_handler:  

 Select Case Err.Number  

   Case 51: Msgbox "Internal error" 
   Case 52: Msgbox "Bad file name or number" 
   Case 53: Msgbox "File Not Found" 
   Case 54: Msgbox "Bad file mode" 
   Case 55: Msgbox "File Already Open" 
   Case 68: Msgbox "Device unavailable" 
   Case 70: Msgbox "Permission denied" 
   Case 71: Msgbox "Disk Not Ready" 
   Case 75: Msgbox "Path/File access error" 
   Case 76: Msgbox "Path not found" 
  
 End Select 

 Resume Next
e vedi se si capisce meglio il problema.
.
Non c'è che dire, una tecnica di debug veramente originale.