Visual Basic - Verificar si un Archivo esta en uso

Buen día a todos.
Ojála puedan ayudar...
Deseo saber dede VB, si un archivo esta en uso pero no se como hacerlo...
Espero que puedan ayudarme.
Muchas gracias.

Que tipo de archivo (.txt,.xls,.doc)???, si es txt lo prueba de esta manera:
Private Sub cmdAbrir_Click()
On Error GoTo Errores
Ruta = "C:\Archivo.txt"
Open Ruta For Input As #1
Errores:
If Err.Number = 55 Then
MsgBox "Archivo en Uso", vbInformation
Err.Clear
End If
End Sub
Si es para Word o Excel necesitarias utilizar API pero tendría que pasarte el ejemplo por mail...saludos!!

Muchas gracias Miguel.
Esa es una buena opción para verificar si el archivo esta en uso, sin embargo quisiera saber si hay alguna manera de verificar si ya esta en uso sin tener que abrir el archivo. en cuanto a los tipos, no importa que tipo de archivo sea...

Se que existe una funcion llamada DeviceIoCOntrol() pero no he podido implementarla.... ojalá que tu si puedas encontrar como hacerlo.

Muchas gracias por tu atención.