Sure... this is the code'til the error occurs
Const ValueRoot = "&h17"
Const sStartFolder = 17 'This value specify folder/browsing options
Dim PathFileBrowse,Subfolder_1, Subfolder_2, Subfolder_3, Subfolder_4, Subfolder_5, Subfolder_6
Subfolder_1 = ""
Subfolder_2 = ""
Subfolder_3 = ""...