Problem getting outlook form to work

[Red Squirrel]

I'm trying to make a basic outlook form, but its not working. I have a field called Fsrdata and this is my code:

Function Item_Send()

 DateData = ""
 SrNameData = ""

 Set FormPage = Item.GetInspector.ModifiedFormPages("Message")
 Item.Subject = "Pre-Survey"

 DateData="date data"


 'SR Name
 If item.userproperties.find("Fsrdata").value <> "" Then
   SrNameData = "Business Name:  " & item.userproperties.find("Fsrdata").value & chr(10)
 End If



 Item.body = DateData & SrNameData


End Function

When I try to use the form I get the error:

Object required: 'Item.userproperties.find(...)' Line No:13

This same code works in another form, so I'm puzzled.

This is with Outlook 2003