if only the conversation is selected, you can move all the selected items
otherwise you should be able to use the conversationtopic of each message

Set sel = ActiveExplorer.Selection
For Each msg In sel
    Debug.Print msg.ConversationTopic
    msg.Move 'folder to move to
Next