Outlook 2010 Erstellen von Ordnern und Unterordnern

Habe ich diesen code erstellt eine Reihe von Ordnern, die unter der aktuell ausgewählten Ordners:

Public Sub CreateFolders()
Dim CurrentFolder As Outlook.MAPIFolder
Dim Subfolder As Outlook.MAPIFolder
Dim List As New VBA.Collection
Dim Folders As Outlook.Folders
Dim Item As Variant

List.Add Array("Audio Video Graphics", olFolderInbox)
List.Add Array("Close Out", olFolderInbox)
List.Add Array("Correspondence", olFolderInbox)
List.Add Array("Expenditure Adjustments", olFolderInbox)
List.Add Array("Invoices", olFolderInbox)
List.Add Array("Project Schedule", olFolderInbox)
List.Add Array("RADPARs and Contracts", olFolderInbox)
List.Add Array("REQs and POs", olFolderInbox)
List.Add Array("Technical Information", olFolderInbox)

Set CurrentFolder = Application.ActiveExplorer.CurrentFolder
Set Folders = CurrentFolder.Folders
For Each Item In List
    Folders.Add Item(0), Item(1)
Next
End Sub

Was ich versuche zu tun ist, fügen Sie einen Unterordner namens-Vorschlag erstellt werden, die unter der "REQs und POs" - Ordner.

Diese wird verwendet, um Ordner zu erstellen, die auf einen öffentlichen Ordner. Ich habe noch nie getan, Programmierung in VBA vor und cant für das Leben von mir herauszufinden, wie man die Unterordner.

Bin ich auf der Suche rund um online, kann aber nichts finden.

Jegliche Hilfe würde sehr geschätzt werden.