This should create the folder as a subfolder of the inbox - replace
Set objDestFolder = objSourceFolder.Folders("Old")
with it
Code:
On Error Resume Next
strDate = Format(Date, "mmm dd yyyy")
Set objDestFolder = objSourceFolder.Folders(strDate )
If objDestFolder Is Nothing Then
Set objDestFolder = objSourceFolder.Folders.Add(strDate )
End If