Listar directorios y subdirectorios en un listbox

[gcas2001]

Hola, te está listando los directorios que no incluyen el caracter espacio en sus nombres.
Es mala practica informática ponerle nombre a los archivos o carpetas que incluyan espacio, dado que complejiza su manejo para las scripts de DOS por ejemplo.Y se ve que en este caso también complica.
De cualquier manera con esta rutina no me pasa:

Camino = TextPath.Text
'Listo directorios
'Directorio = Dir(Camino, vbDirectory + vbHidden + vbReadOnly + vbSystem) 'Si quiero carpetas del ocultas, del sistema, etc
Directorio = Dir(Camino, vbDirectory)
Do While Directorio <> ""
DoEvents
If Directorio <> "." And Directorio <> ".." Then
If (GetAttr(Camino + Directorio) And vbDirectory) = vbDirectory Then
TextCarpetas.Text = TextCarpetas.Text + vbCrLf + Directorio
End If
End If
Directorio = Dir
Loop

Es en VB 6.0, incluye un TextBox llamado TextCarpetas