Moving mail from one folder to the other(Outlook)

Hello,
Is there a way to move(not copy) a specific mail from one custom folder to another customfolder?
Does someone know? Any input would be great!

Now, where are the proffesionals here? Can anybody help me out?

This code will move all of the mail items from the Inbox to the Personal Mail box where the Sender Name is 'Bob'

Code:

---

Set myInbox = myOlApp.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Personal Mail")
Set myItem = myItems.Find("[SenderName] = 'Bob'")
   
While TypeName(myItem) <> "Nothing"
    myItem.Move myDestFolder
    Set myItem = myItems.FindNext
Wend

---

Thanks again Ishamel.