Private Sub GetFoldersFromPath(Byval lpFolder As String,iTextBox As TextBox)
Dim FSO As Object
Dim oFolder
Set FSO=CreateObject("Scripting.FileSystemObject")
For Each oFolder In FSO.GetFolder(lpFolder).SubFolders
iTextBox=iTextBox & "|" & oFolder.Name
Next
Set FSO=Nothing
End Sub