CDO Getfolder

Jeg har et lille problem med at finde ned til én bestemt folder under en postliste, i følgende kode finder jeg postlisten, men herfra kniber det med at finde underfolderen "Afdinbox" er der hjælp at hente ?

Public Function Gfolder()
Dim objSession As MAPI.Session
Dim objInfoStores As InfoStores
Dim objInfoStore As InfoStore
Dim objFolder As Folder  ' Folder object
Dim StoreID As String
Dim strFolderStoreID As String
Dim objMessages As Messages
Dim objMessage As Message
Dim i
      ' Logon to the MAPI session
      Set objSession = New MAPI.Session
      objSession.Logon profilename:="OutlookOpdat" 

'strVersion = objSession.Version
'Response.Write strVersion
Set objInfoStores = objSession.InfoStores
For i = 1 To objInfoStores.Count
If objInfoStores.Item(i) = "Postliste-afdelingen" Then
Set objInfoStore = objInfoStores.Item(i)
Exit For
End If
Next
??????

end function