Has probado a cambiar el While del segundo bucle con un 'Do While...' (y el Wend por un Loop, claro). De esta forma, cuando lo encuentres puedes hacer...
Código:
...
Encontrado = Encontrado + 1
NumeroFich = NumeroFich + 1
exit do
...
y no seguir dando vueltas.
De todas formas, el bucle es algo raro, deja que lo medite bien. ¿Estás usando dos fileListBox?