Помогите разобратся с Execute

[b]script$[/b]
Use {х1}
Use {х2}
Use {х3}
Use {х4}
Use {х5}
Sub Initialize
Dim subs as New NotesSession
Dim subw as new NotesUIWorkspace
Dim subdb as NotesDatabase
Dim subdoc as NotesDocument
Dim subui as NotesUIDocument
Set subdb=subs.CurrentDatabase
Set subui=subw.CurrentDocument
Set subdoc=subw.CurrentDocument.Document
Dim dbUnit as NotesDatabase
Dim vUnit as NotesView
Dim dUnit as NotesDocument
Set dbUnit = subs.GetDatabase(subdb.Server,{OrgUnit.nsf})
Set vUnit = dbUnit.GetView({$select.ro.view})
Set dUnit = vUnit.GetDocumentByKey(subdoc.IWF_Department(0),True)
If dUnit.HeadOfUnit(0) Like {Head.*} Or dUnit.HeadOfUnit(0) Like {Curator.*} Then
subdoc.WFCurrentApprover = Evaluate({@ExpandNameList(@ServerName;HeadOfUnit)},dUnit)
Else
subdoc.WFCurrentApprover = dUnit.HeadOfUnit
здесь пробовал разние варианти все равно ошибка
call subdoc.ReplaceItemValue("WFCurrentApprover", dUnit.GetItemValue("HeadOfUnit")(0))
subdoc.WFCurrentApprover = dUnit.HeadOfUnit(0)
End If
End Sub