Visual Basic - BUSCAR ARCHIVO OCULTO

HOLA A TODOS
NECESITO QUE MI SISTEMA BUSQUE UN ARCHIVO, EL CODIGO QUE UTILIZO ES EL SIGUIENTE

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

FUNCIONA A LA PERFECCION, PERO EL PROBLEMA SE PRESENTA CUANDO OCULTO EL ARCHIVO (YA QUE EN OTRO PROCEDIMIENTO LO CREO AL ARCHIVO YA OCULTO) Y AHORA NECESITO QUE LO ENCUENTRE.
DESDE YA MUCHAS GRACIAS.-
CHAU.-

Pues si revisas en la MSDN te darás cuenta que puedes indicar el atributo o atributos que sean necesarios que tenga el archivo o archivos.