Nevermind:
;; Create browse for folder dialog box for folder selection
;; By Tony Tanzillo
(defun PLOT_FILE_DIA (Message[color=red] Directory[/color] / sh folder folderobject result)
(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
(setq folder (vlax-invoke-method sh 'BrowseForFolder (vla-get-HWND (vlax-get-acad-object)) Message 0 [color=red]Director[/color]y ))
(vlax-release-object sh)
(if folder
(progn
(setq folderobject (vlax-get-property folder 'Self))
(setq result (vlax-get-property FolderObject 'Path))
(vlax-release-object folder)
(vlax-release-object FolderObject)
(if (/= (substr result (strlen result)) "\\")
(setq result (strcat result "\\"))
result
)
)
)
)
This seems to work