Outlook Auswahl Ordner

Dim FSO As Object
Dim ChosenFolder As Object
Dim myOlApp As Outlook.Application
Dim iNameSpace As NameSpace

Set FSO = CreateObject("Scripting.Filesystemobject")  
Set myOlApp = Outlook.Application
Set iNameSpace = myOlApp.GetNamespace("MAPI")  
Set ChosenFolder = iNameSpace.PickFolder
If ChosenFolder Is Nothing Then
MsgBox ("Sie haben keinen Ordner ausgewählt!")  
End If

Set ns = GetNamespace("Mapi")  
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
Set SubFolder = Inbox.Folders("Test")  
i = 0