Dim inBox As Outlook.MAPIFolder = objlNs.GetDefaultFolder( _
  Outlook.OlDefaultFolders.olFolderInbox)
' Das ist der Default-Ordner "Persöhnliche Ordner/Posteingang"
Dim destFolder As Outlook.MAPIFolder = inBox.Folders("Test")
' Das ist dann der Unterordner "Persöhnliche Ordner/Posteingang/Test"