Ok...I'm stuck! I have the following code to route a custom form:

Option Explicit
'
' Send only to the first person in the To field,
' Save other people in the To field into the RouteTo field.
'
Function Item_Send()
Dim i
Dim bDelete
Dim prpRouteTo
i = InStr(Item.To, ";")
If i = 0 Then
i = InStr(Item.To, ",")
End If
If i Then
Set prpRouteTo = Item.UserProperties("RouteTo")
prpRouteTo.Value = Mid(Item.To, i + 1)
bDelete = False
i = 1
While i <= Item.Recipients.Count
If Recipients.Item(i).Type = 1 Then ' olTo
If bDelete Then
Recipients.Item(i).Delete
Else
i = i + 1
bDelete = True
End If
Else
i = i + 1
End If
Wend
Else
Set prpRouteTo = Item.UserProperties("RouteTo")
prpRouteTo.Value = ""
End If
End Function
'
' Route message to people in the RouteTo field
'
Function Item_CustomAction(ByVal Action, ByVal NewItem)
Dim prpRouteTo
Dim i
Select Case Action.Name
Case "Route"
Set prpRouteTo = NewItem.UserProperties("RouteTo")
If prpRouteTo.Value <> "" Then
Item_CustomAction = True
NewItem.To = prpRouteTo.Value
prpRouteTo.Value = ""
Else
Item_CustomAction = False
End If
Case Else
Item_CustomAction = True
End Select
End Function

The name of the form is EUS Applicant/Person Responsible Request. The code is in the Script Editor. When I send the form, the first person to get it can see the Route button, but when the click it, they get the following error: The form you selected can not be displayed.

What am I doint wrong?!?