Hola!!
Al momento de guardar pregunta lo siguiente:
Código vb:
Ver original'
IF LEN(DIR(RUTA_ARCHIVO))=0 THEN
'NO EXISTE, MOSTRAR GUARDAR COMO...
Commondialog.ShowSave
ELSE
'EXISTE GUARDAR NORMALMENTE
'TU CODIGO DE GUARDAR
'TU CODIGO DE GUARDAR
'TU CODIGO DE GUARDAR
END IF