Private Type BrowseInfo
   hwndOwner As Long 
   pIDLRoot As Long 
   pszDisplayName As Long 
   lpszTitle As Long 
   ulFlags As Long 
   lpfnCallback As Long 
   lParam As Long 
   iImage As Long 
End Type 
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long 
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long 
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long 

Function OrdnerWählen() As String 
Dim lngIDList As Long 
Dim strBuffer As String 
Dim strTitle As String 
Dim usrBrowseInfo As BrowseInfo
strTitle = "Wählen Sie einen Ordner"
    With usrBrowseInfo
        .hwndOwner = 0
        .lpszTitle = lstrcat(strTitle, "")
        .ulFlags = 3
    End With 
    lngIDList = SHBrowseForFolder(usrBrowseInfo)
    If (lngIDList) Then 
        strBuffer = Space(260)
        SHGetPathFromIDList lngIDList, strBuffer
        strBuffer = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
        OrdnerWählen = strBuffer
    End If 
 
End Function 
 
Private Sub Command1_Click()
    MsgBox OrdnerWählen
    'oder Text1.Text = OrdnerWählen
End Sub