Error al guardar archivo visio desde access. Disco incorrecto

Buenas, desde access ejecuto una instancia de visio para crear un esquema que luego guardo en un archivo con el siguiente código:

(...)
            If Dir(Ruta) <> "" Then Kill (Ruta)
            visioApp.ActiveDocument.SaveAs (Ruta)
            visioApp.ActiveDocument.Close
            visioApp.Quit

El 50% de veces que ejecuto la macro me salta el error de disco incorrecto, cosa muy sospechosa, así que probando, probando creo que VBA ejecuta la acción SaveAs antes que el "Kill" haya terminado su tarea dando (a veces) el error de disco. Pruebo poniendo un "sleep" en medio:

            If Dir(Ruta) <> "" Then Kill (Ruta)
            Dim started As Single: started = Timer
            Do: DoEvents: Loop Until Timer - started >= 1
            visioApp.ActiveDocument.SaveAs (Ruta)
            visioApp.ActiveDocument.Close
            visioApp.Quit

y vualá! Funciona sin darme ningun error. Pero .... No hay alguna manera mas ortodoxa de que no de fallos? Lo encuentro un poco chapuza.

Saludos y gracias