Друзья, помогите пожалуйста с контекстным меню.
Получаю сообщение "Введенное выражение содержит функцию с неверным числом аргументов."
Уже что только не перепробовал (. НЕ пойму как победить...

Private Sub TEST_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim IPNE$, script$, BLK_Cell$, q$
IPNE = "10.10.10.10"
UBL_Cell = BLK_UNBLKCell(Me.bcfid, Me.bscid, "UBL")	' тут функция вернет текстовое значение

'q = toExecute(IPNE, UBL_Cell)  '<- вот эту функцию хочу выполнить в OnAction
On Error Resume Next
'Debug.Print "PopUpName: " & PopUpName
CommandBars(PopUpName).Delete
Err.Clear

On Error GoTo Err_
With Me
    PopUpName = .Name & .hWnd
    PopUpName = "test"
End With
On Error Resume Next
With CommandBars.Add(PopUpName, 5, , True)
    With .Controls.Add(1, , , , True)
        .Caption = "UBL_Cell " & Me.btsName & "(BCF=" & Me.bcfid & " ,BSC=" & bscid & ")"
        '.OnAction = "=toExecute(""" & IPNE & "," & UBL_Cell & """)" ' не получается выполнить
        .OnAction = "=toExecute(""'" & IPNE & "','" & UBL_Cell & "'"")"    ' не получается выполнить
     End With

End With

With Me
    .ShortcutMenu = True
    .ShortcutMenuBar = PopUpName
End With

Exit_TEST_MouseDown:
    Exit Sub

Err_:
    MsgBox Err.description & "(Îøèáêà - " & Err.Number & ")", , "Îøèáêà"
    Resume Exit_TEST_MouseDown
End Sub

Public Function toExecute(IPNE As String, script As String)

If Screen.ActiveForm.SendToServer = True Then
    DoCmd.Beep
    If MsgBox("Âû äåéñòâèòåëüíî õîòèòå ïîñëàòü êîìàíäû íà BSC?", vbYesNo, "Ïîäòâåðæäåíèå") = vbYes Then
        Form_FormaLog.SendData IPNE, script
    End If
Else
    MsgBox script, , "Ïîìåùåíî â áóôåð îáìåíà!"
    Text2Clipboard (script)
End If

End Function

http://www.sql.ru/forum/1302904/onaction-zamuchil-kak-pobedit