Private Function MoveMbx(UserDN As String, 
TargetMdbDN As String)
Dim objPerson As New CDO.Person
Dim objMailbox As CDOEXM.IMailboxStore
objPerson.DataSource.Open «LDAP://» & UserDN
Set objMailbox = objPerson
objMailbox.MoveMailbox «LDAP://» & TargetMdbDN
objPerson.DataSource.Save
Set objPerson = Nothing
End Function