Clear Categories in Outlook 2003

Sub RemoveCategories(MyMail As MailItem)
  Dim strID As String
  Dim objMail As Outlook.MailItem

  strID = MyMail.EntryID
  Set objMail = Application.Session.GetItemFromID(strID)
  objMail.Categories = ""
  objMail.Save

  Set objMail = Nothing
End Sub