Visual Basic - Recorer Discos

Hola buenas, tengo el siguiente problema: necesito recorer todos los discos que tiene mi maquina, duro, cd, dvd, pendriver para ver en cual de ellos se encuentra un archivo que tiene que levantar la aplicacion, tengo esto echo que funciona mientras que las unidades tengasn algo, pero si por ejemplo en la compactera no hay un cd lanza el siquiente error :
"nombre o numero de archivo incorrecto".

lo que tengo es :

For intLetra = 67 To 100
strLetra = Chr(intLetra) & ":\" & "JorgePresupuesto.mdb"
If Not (Empty = Dir(strLetra, vbArchive)) Then
intLetra = 1000
End If
Next intLetra

If intLetra = 1001 Then
Form1.Show
Else
MsgBox "No se encontró la Base de Datos." & vbCrLf & "El sistema se cerrará", vbCritical, "Error..."
End
End If

Si alguien sabe algo mejor o como sulocionar esto se los agradesco

Prueba con un manejo de errores, ya sabes al inicio del modulo On error goto Errores, y al final

exit sub
Errores:
Select case Err.Number
case el que sea
resume next
case otro
resume next
case else
msgbox("Se ha producido un Error " & Err.number)
End Select

Con esto podrás sortear los errores y averiguar los que se pueden producir