Verzeichnis wählen

Function in der das Vereichnis ausgewählt wird, O.K.
Nun wie muss ich die Zeilen (ich denke es geht um folgende)
bInfo.pidlRoot = 0&
bInfo.ulFlags = &H1
verändern, dass ich nicht vom Desktop aus mich durchklicken muss, sondern schon in einem gewissen Ordner anfange (Bsp. X:\Reklamationen\...)
DANKE Grüsse volker

Function getdirectory(Optional msg) As String
Dim bInfo As BROWSEINFO
Dim Path As String
Dim r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(msg) Then
bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
Else
bInfo.lpszTitle = msg
End If
bInfo.ulFlags = &H1
x = SHBrowseForFolder(bInfo)
Path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal Path)
If r Then
pos = InStr(Path, Chr$(0))
getdirectory = Left(Path, pos - 1)
Else
getdirectory = ""
End If
End Function