Visual Basic - buscar archivo

Amigos:

Una consulta creo que es sencilla, pero soy novato y no se por donde empezar.

Al dar un click a un boton que busque en X carpeta (folder) varios archivos, si no encuentra alguno que siga buscando el siguiente archivo, ya que lo encuentre que me de un mensaje de archivo encontrado ò No encoentrado.

Busca ejemplos de uso del FileSystemObject, es algo típico y que no requerirá de mucha modificación.

Private Sub cmdBuscar_Click()
Dim strRuta As String
strRuta = Dir(c:*.*)
Do While Not strRuta = ""
Me.listbox1.AddItem strRuta
strRuta = Dir()
Loop
End Sub