Ma "non va" cosa vuol dire con precisione? Hai un errore? Il programma si comporta in un modo che non vuoi? In quale modo?

Utilizza solamente questa linea

Set FLD = FSO.GetFolder(DirListBox1.Path)