VBA macro to delete sub folders from Deleted Items in OUtlook

gistfile1.vb

Sub RemoveAllDeletedItemsSubFolders()
 Dim oDeletedItems As Outlook.Folder
 Dim oFolders As Outlook.Folders
 Dim oItems As Outlook.Items
 Dim i As Long
 
 'Obtain a reference to deleted items folder
 Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 Set oFolders = oDeletedItems.Folders
 For i = oFolders.Count To 1 Step -1
    oFolders.Item(i).Delete
 Next
End Sub