<a href="http://www.outlookcode.com/d/code/getfolder.htm" title="http://www.outlookcode.com/d/code/getfolder.htm" target="_blank">http://www.outlookcode.com/d/code/getfol…</a>

Here is some sample code:

Set MyFolder = GetFolder(”Public Folders\All
Public Folders\DDD\DDD Calendar”).Items 

Public Function GetFolder(strFolderPath As String)
As MAPIFolder
‘ strFolderPath needs to be something like
‘ “Public Folders\All Public
Folders\Company\Sales” or
‘ “Personal Folders\Inbox\My Folder” 

Dim objApp As Outlook.Application
Dim objNS As <a href="http://Outlook.Name" title="http://Outlook. " target="_blank">Outlook.Name</a>Space
Dim colFolders As Outlook.Folders
Dim objFolder As Outlook.MAPIFolder
Dim arrFolders() As String
Dim I As Long
On Error Resume Next 

strFolderPath = Replace(strFolderPath, “/”, “\”)
arrFolders() = Split(strFolderPath, “\”)
Set objApp = Application
Set objNS = objApp.GetNamespace(”MAPI”)
Set objFolder = objNS.Folders.Item(arrFolders(0))
If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
Set colFolders = objFolder.Folders
Set objFolder = Nothing
Set objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If 

Set GetFolder = objFolder
Set colFolders = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Function

And here is a site with a bit more information on the subject as I am no expert on VB/VBA/VBScript programming: