Formular i Outlook

Jeg har en formular der startes i Outlook. Efter afsendelse skal denne formular automatisk poppe op og være klar til næste besked.
Scriptet ser sådan ud og programmet siger at den fejler i linie 6:

Function Item_Send()

Set myOlApp = CreateObject("Outlook.Application")

Set myItem = myOlApp.ActiveInspector.CurrentItem

myItem.Subject = myItem.UserProperties.Item("Person")+", "+ myItem.UserProperties.Item("FraFirma")+" på tlf. "+ myItem.UserProperties.Item("FraTelefon")

Set olNamespace = myOlApp.GetNameSpace("MAPI")

Set myFolder = olNamespace.Folders("Reception").Folders("Indbakke")

Set myItem = myFolder.Items.Add("IPM.Note.Telefonbesked")

myItem.Display

End Function