Sub MoveToRead()
Dim olMsg As MailItem
Dim olStore As Store
Dim olFolder As Folder
    On Error Resume Next
    Set olMsg = ActiveExplorer.Selection.Item(1)
    For Each olStore In Session.Stores
        If olStore.DisplayName = "Personal Folders" Then    'the name of the root folder
            Set olFolder = olStore.GetRootFolder.folders("Read")    'a folder directly off the root
            olMsg.Move olFolder
            Exit For
        End If
    Next olStore
lbl_Exit:
    Exit Sub
End Sub