Visual Basic - Error 70

Tengo un programa que lee un archivo de texto y luego graba una marca de que el archivo ya fue procesado. La secuencia de comandos es la siguiente:
OpenAsTextStream(ForReading)
while not AtEndOfStream
ReadLine
(proceso de la línea)
Wend
Close
OpenAsTextStream(ForWriting)
writeLine
Close

Este código se ejecuta dentro de un timer con intervalo 1000 ya que el archivo puede ser grabado desde diferentes estaciones. El problema es que en ciertas ocasiones (muy raras veces) en el Open for writing me da el error 70 (permission denied) y se me cae el programa. Cómo puedo verificar si el archivo está en uso (en las estaciones) para esperar a que lo liberen y poder abrirlo for writing???

Justamente el error de código 70 te indica que un archivo esta abierto o en uso desde otro dispositivo ,incluso desde tu mismo equipo.

Este error sale cuando quieres sobreescribir, modificar un archivo ya abierto. Puedes usar el mismo codigo de error para poder validar que aun esta siendo usado.

El problema cuando te bota de la aplicación es porque no estas controlando el error (On error GOTO Finalizar )