Dim dirchoose As DirectoryChooser
dirchoose.Initialize
If InitialOpenPath = "" Or Not(File.Exists(File.GetFileParent(InitialOpenPath), "")) Then
InitialOpenPath = File.DirApp
End If
dirchoose.InitialDirectory = InitialOpenPath
dirchoose.Title = "Set Folder to bla bla bla"
dirchoose.Show(MainForm)