VS 2008 Create 1 Folder For Every Item On A Listbox?

i have a list box which is populated with the sub folders from a user selected folder, so the listbox item count varies from 2 item to 1000 items etc.The list box code i use to do this is:

Dim lb1s As String = Form1.Folder.SelectedPath
Dim di As New IO.DirectoryInfo(lb1s)
Dim mydirInfoArray As IO.DirectoryInfo() = di.GetDirectories



Im trying to make a feature were on a button click the app will create 1 folder for every item on the listbox (named after the list box item)So if theres 3 items on the list box for example:

001
002
band 3

[code]....

And when the user presses the button, the app will create 3 dupe folders (Only the folders, not the contents) in a user selected directory using the same names, ive been tinkering for a little while but cant seem to figure out a way to implement this.