What's wrong with "Evaluate"?

Hello, I caeated an agent Useing Evaluate, there is an error in coding below, Would you please tell me what’s wrong with str1 and str2?

Set doc = collection.GetFirstDocument()

Dim workspace As New NotesUIWorkspace

Dim picklist As Variant

Dim messagelist As String

picklist= workspace.PickListStrings( _

PICKLIST_CUSTOM, _

True, _

"Dom_Svr_1/Telesat/CASOC", _

"names.nsf", _

"People", _

"Name", _

"Please select some documents.", _

5, _

"" ) 



str1=Evaluate("@Right(picklis(0);"","" )" )

str2=Evaluate("@Left(picklist(0);"","" )" )

strT=str1 & " " & str2

     ...

Thanks,

Linda