It rather depends where you have created the folder in relation to the root folder of the account. e.g. assuming that your folder is a sub folder of a folder that is a sub folder of the Inbox, you can loop through all your inbox folders and their sub folders to find the matching name as below, then having found such a folder you can look through the items in it and do something with one or more of them.
Option Explicit
Sub Macro1()
Dim cFolders As Collection
Dim olFolder As Outlook.Folder
Dim SubFolder As Folder
Dim olNS As Outlook.NameSpace
Dim olItem As MailItem
Dim i As Long
On Error Resume Next
Set cFolders = New Collection
Set olNS = GetNamespace("MAPI")
cFolders.Add olNS.GetDefaultFolder(olFolderInbox)
Do While cFolders.Count > 0
Set olFolder = cFolders(1)
cFolders.Remove 1
If olFolder.Name = "2017" Then 'the name of the folder to process
For i = olFolder.Items.Count To 1 Step -1
'process in reverse order if you plan to remove any of the items from the list
Set olItem = olFolder.Items(i)
'do something with the items
Debug.Print olItem.Subject
Next i
Exit Do
End If
For Each SubFolder In olFolder.folders
cFolders.Add SubFolder
Next SubFolder
Loop
lbl_Exit:
Set olFolder = Nothing
Set SubFolder = Nothing
Set olItem = Nothing
Exit Sub
End Sub
If you know the exact path of your sub folder you can access it directly e.g. using the same folder location
Sub Macro2()
Dim olFolder As Outlook.Folder
Dim olNS As Outlook.NameSpace
Dim olItem As MailItem
Dim i As Long
Set olNS = GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderInbox).folders("Test").folders("2017")
For i = olFolder.Items.Count To 1 Step -1
'process in reverse order if you plan to remove any of the items from the list
Set olItem = olFolder.Items(i)
'do something with the items
Debug.Print olItem.Subject
Next i
lbl_Exit:
Set olFolder = Nothing
Set olItem = Nothing
Exit Sub
End Sub
With this example path both approaches should give the same results.