pb entre office Xp et office vista ;erreur 445

Bonjour

voici ce code qui fonctionne tres bien avec office xp et qui me creer un bug avec office vista: Cet objet ne gere pas cette action : errreur d'execution 445

Private Sub UserForm_Initialize()
Dim Wb As Object

Set Wb = Application.FileSearch
With Wb ' Ici ca bug car au dessus c'est pas compris

A priori Application.FileSearch n'est pas reconnue par vista.

Comment faire ?

merci