The below code will permanently delete email from the Deleted Items folder in Outlook 365. How do I modify this so that it will only permanently delete emails from a subfolder of the Deleted Items folder I have created which is called "Extra"? Thanks.

Sub DeletedItems()


Dim lCount As Long


Dim lCtr As Long


Dim lDelete As Long


Dim oFolder As Folder


Dim oItems As Items





Set oFolder = Outlook.Session.Folders("profile.com").Folders("Deleted Items")


Set oItems = oFolder.Items
lCount = oItems.Count





On Error Resume Next
lDelete = InputBox("Enter number to delete:", , lCount)
On Error GoTo 0
If lDelete = 0 Then
Exit Sub
End If

For lCtr = lDelete To 1 Step -1
oItems(lCtr).Delete
Next
End Sub