А так трудно это проверить в Immediate?  
?Application.GetOpenFilename("Excel (*.xls),Книга покупок*.xls")FileDialog(msoFileDialogOpen)  
А работать будет следующее  
ublic Sub testOpen()  
   Dim pDialog As Office.FileDialog  
   Set pDialog = Application.FileDialog(msoFileDialogOpen)  
   pDialog.InitialFileName = "Книга покупок*.xls"  
   If pDialog.Show Then  
       Debug.Print pDialog.SelectedItems(1)  
   End If  
End Sub