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("").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
End Sub