VBA to move email from inbox to subfolder

Hi,

I have a very basic code that helps me move selected emails from the Inbox to a subfolder, but it will not move it.
My VBA keeps telling me the folder (ToDo) does not exist, but that is likely because it is a subfolder, and it is not directly listed underneath the mailbox.

The structure of the mailbox is setup like this:
- Mailbox - Marijke
- Inbox
--> subfolder of inbox: Today
--> subfolder of Today: ToDo

This is part of the code I have where the mailfolder is selected:

'Define path to the target folder
Set moveToFolder = ns.Folders("Mailbox - Marijke").Folders("ToDo")

Can anyone help me obtain the code I need to move my emails?

Thank you!

It would be more effective to define an Outlook rule to move emails as they are received, if you can identify which messages are to be moved.

You haven't included the code which determines which to move, so this is a comment only.

I have considered doing this, but we have so many emails coming in that need grooming that we have reached the maximum number of rules.

The macro itself works.
if I put a different folder in (for example 'Sent') it moves the email. it's just with the way the subfolder is positioned that seems to be my challenge.

This is the complete code I have:

'Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveSelectedEmailToDeistalls()
On Error Resume Next

Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Dim MyItem As Object

Set ns = Application.GetNamespace("MAPI")
Set MyItem = ActiveExplorer.Selection(1)
    
' mark selected email as READ
        MyItem.UnRead = False
        
'Define path to the target folder
Set moveToFolder = ns.Folders("marijkemail@mailbox.com").Folders("ToDo")

If Application.ActiveExplorer.Selection.Count = 0 Then
   MsgBox ("No item selected")
   Exit Sub
End If


If moveToFolder Is Nothing Then
   MsgBox "Target folder not found!", vbOKOnly + vbExclamation, "Move Macro Error"
End If

For Each objItem In Application.ActiveExplorer.Selection
   If moveToFolder.DefaultItemType = olMailItem Then
      If objItem.Class = olMail Then
         objItem.Move moveToFolder
      End If
  End If
Next

Set objItem = Nothing
Set moveToFolder = Nothing
Set ns = Nothing
Set MyItem = Nothing


End Sub

Thank you skatonni, your solution worked perfectly!