Office Outlook 2007 makro problem.

Jeg er ved at lave en makro i outlook 2007, der skal kopiere udvalgte mail ud i en Windows mappe.
Programmet kører fint i Visual Basic, men jeg har et lille problem med antallet af mapper 
D:\Mail\Navn_1    
            Navn_2
            Navn_3
Så længe antallet at mapper ikke overstiger 100, går det fint, men når antallet overstiger 100
vises mapperne Navn_1, Navn_2 & Navn_3?. osv IKKE mere, før jeg klikker på mappen Mail,
så vises alle mapperne.
Jeg tror der mangler en dimensionering, som evt. er sat til 100 default.
Håber der er en der har lyst til at hjælpe.

Her er mit test-program

Private Sub fnShellBrowseForFolderVB()
    Const WINDOW_HANDLE = 0
    Const NO_OPTIONS = 0
Dim strPath

On Error Resume Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "Select folder:", NO_OPTIONS, "D:\Mail")
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
MsgBox "strPath      " & strPath
End Sub
MVH Benny