I'm using this to allow users to browse to a folder in order to save the file;
Function GetInstallFolder() As String
Dim fldr As FileDialog
Dim sItem As String
Dim sDesktop As String
Dim bValid As Boolean
sDesktop = Environ("USERPROFILE") & "\Desktop"
Set fldr =...