Public Function FolderPicker() as String
    Dim FolderName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "กรุณาเลือกตำแหน่ง folder ที่ต้องการ"
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path
        result = .Show
        If (result <> 0) Then
            FolderName = Trim(.SelectedItems.Item(1))
        Else
            FolderName = ""   ' not found or cancel
        End If
    End With
    FolderPicker = FolderName
End Function

function นี้อาจจำเป็นจะต้องเพิ่ม Microsoft Office Object Library ใน reference ด้วย ถึงจะทำงานได้