InitialFolder:="C:\MyFolder" dynamisch ermiiteln

Function BrowseFolder(Optional Caption As String, _
Optional InitialFolder As String) As String
Dim SH As Shell32.Shell
Dim F As Shell32.Folder
Set SH = New Shell32.Shell
Set F = SH.BrowseForFolder(0&, Caption, BIF_RETURNONLYFSDIRS, InitialFolder)
If Not F Is Nothing Then
BrowseFolder = F.Items.Item.Path
End If
End Function

Sub Suchbereich_eingrenzen()
Dim FName As String, InitialFolderWahl As String, msg As String
FName = BrowseFolder(Caption:="Ab welchem Verzeichnis soll sie Suche beginnen?", InitialFolder:= _
"C:\MyFolder")
ChDir FName
msg = "Die Suche beginnt ab:" & Chr(10) & FName & Chr(10) & "und soll wo beenden?"
InitialFolderWahl = FName
FName = BrowseFolder(Caption:=msg, InitialFolder:=InitialFolderWahl)
End Sub

Noch etwas! Wie bekomme ich den Button "Neuen Ordner erstellen" auch noch weg? Ich hoffe Ihr könntet mir helfen.
Tschüss!
Franz D.