sugerencia:
porque no cuando generes el archivo validas si no hay error, si hay error pues es obvio que no se creo tu archivo jejejejeje
para verificar si hay un error lo haces hasta el principio del evento que valides y pones algo asi
Private Sub Command1_Click()
on error goto misalto
'codigo donde creas tu archivo
' y al final del evento puedes poner algo asi
'termina codigo donde creas tu archivo
exit sub
misalto:
msgbox "el archivo no pudo ser creado intente de nuevo o que se yo

"
end sub