To do the MOVE rather than the delete you will require 3 lines of code
Dim outFolderDest As Outlook.Folder ' With all the other DIMs
Set outFolderDest = outNameSpace.Folders("Main Folder Name").Folders("Sub Folder Name") ' Where ever suitable, I put it with at the top with the other SETS
outMessage.Move outFolderDest ' In Place Of Delete
Cheers, Andrew