Visual Basic para Aplicaciones - problema con cuadro de dialogo "FileDialog"

Hola, Tengo un problema con Filedialog, uso la instrucción siguiente para abrir el cuadro de dialogo para selecionar la ruta del archivo:

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen del empleado"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.
.

y al ejecutar el formulario me marca error en aplicación ; si declaro una variante con DIm de tipo FileDailog, el error se traduce a filedialog como tipo desconosido

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

¿que puedo hacer para solucionar o corregir este problema?

Gracias.