Converting this code to work in Outlook VBS?

[chrisgreen]

How do I get this code to work in an outlook form?<br><br><br>Sub ChangeMessageClass()<br>Set olApp = New Outlook.Application<br>Set olNS = olApp.GetNameSpace(&quot;MAPI&quot<br>Set ContactsFolder = _<br>    olNS.GetDefaultFolder(olFolderContacts)<br>Set ContactItems = ContactsFolder.Items<br>For Each Itm in ContactItems<br>   If Itm.MessageClass &lt;&gt; &quot;IPM.Contact.MyForm&quot; Then<br>      Itm.MessageClass = &quot;IPM.Contact.MyForm&quot;<br>      Itm.Save<br>   End If<br>Next<br>End Sub<br>