Visual Basic - COMO BUSCAR ARCHIVOS Y COMO PREGUNTO SI ESTAN

TENGO EL SIGUIENTE CODIGO:

Private Sub Boton_Click()

On Error GoTo Mostrar
Dim FileName As String

FileName = "C:\Ayuda\index.htm"

Shell "C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE " & FileName, 1

Exit Sub

Mostrar:

If Err.Number <> 0 Then
MsgBox "Se ha generado el siguiente error:" & Chr(13) & Chr(13) & Err.Description, vbCritical, "Error"
End If

End Sub

¿Como pregunto si la ruta y el archivo de "filename" existen?

Esta es una sencilla rutina que tome de www.ambsoftware.com

If Dir("C:\a.txt", vbNormal Or vbReadOnly Or vbHidden _
Or vbSystem Or vbArchive) = "" Then
'El fichero NO EXISTE
Else
'El fichero EXISTE
End If

Saludos desde Lima