Originariamente inviato da optime
... Ti basterà testare se è vuoto, nel qual caso NON eseguirai il codice successivo.
Cosa che avrebbe potuto controllare da solo, dato che l'errore si ha esattamente sulla linea

Open CommonDialog1.FileName For Input as #1

e quando il VB si ferma CommonDialog1.FileName e' vuoto ...