Custom EWS Class - FindFolders help

'' Since this is not a folder search we opt for Shallow Traversal Type
            'Dim findItemRequest As New FindItemType()
            'findItemRequest.Traversal = ItemQueryTraversalType.Shallow
 
            Dim findFolderRequest As New FindFolderType
            findFolderRequest.Traversal = FolderQueryTraversalType.Shallow
 
 
            '' The BaseShape property Gets or Sets the requested 
            '' properties to return in a response
            'Dim itemProperties As New ItemResponseShapeType()
            'itemProperties.BaseShape = DefaultShapeNamesType.AllProperties
            Dim folderProperties As New FolderResponseShapeType
            folderProperties.BaseShape = DefaultShapeNamesType.IdOnly
 
            '' Here the item shape property is set, Go To definition on 
            '' FindItemType for more info
            'findItemRequest.ItemShape = itemProperties
            findFolderRequest.FolderShape = folderProperties
 
 
            '' Setup a folder array and define the folder Name and then set the parent 
            '' folder ID Field with it to filter the search to just the inbox. 
            Dim folderIDArray As DistinguishedFolderIdType() = New DistinguishedFolderIdType(0) {}
            folderIDArray(0) = New DistinguishedFolderIdType()
            folderIDArray(0).Id = DistinguishedFolderIdNameType.inbox
            findfolderRequest.ParentFolderIds = folderIDArray
           
 
            '' This block initiates the reading of the messages, 
            '' Declares variables for the folder and items in that folder
            'Dim findItemResponse As FindItemResponseType = exchangeServer.FindItem(findItemRequest)
            'Dim folder As FindItemResponseMessageType = _
            'DirectCast(findItemResponse.ResponseMessages.Items(0), FindItemResponseMessageType)
            'Dim folderContents As New ArrayOfRealItemsType()
            'folderContents = DirectCast(folder.RootFolder.Item, ArrayOfRealItemsType)
            'Dim items As ItemType() = folderContents.Items
 
            Dim findFolderReponse As FindFolderResponseType = exchangeServer.FindFolder(findFolderRequest)