After you identify the message, you can use a case statement or an array to set the folder.
Select Case True
case instr(1,item.subject,"phrase") >0
saveFolder = "path"
case instr(1,item.subject,"phrase2") >0
saveFolder = "new path"
end select
Thanks Diane!