udførelse af function vha Eval() virker ikke ?

jeg har en række rapporter, som jeg tidligere har startet med knapper - nu skal de startes ved at vælge fra en dropdown og en knap. Kort EVAl skulle do the trick, men virker ikke rigtigt i mit tilfælde - "Runtime 2425 - The indtastede udtryk indeholder en funktion, som ..."

Private Sub Visrap_Click()
Dim strAction As String
    ' dette er hvad den skal gøre o gdet virker
    'strAction = Nz(Eval(cborapport.Column(1, Me.cborapport.ListIndex)))
    ' da den henter dette stringudtryk frem - funktionskaldet virker ikke
    strAction = Nz(Eval("RapPoliceoversigt_Click()"))
    'dette virker
    'RapPoliceoversigt_Click
End Sub
Private Sub RapPoliceoversigt_Click()
OpenGrpRapporter2 "Qry -police - erstatning", _
                    "Dump af Qry -police - erstatning", _
                    mycriteria, _
                    "Rpt police - erstatning"
End Sub

Det skal lige siges, at jeg har prøvet med en function og subben virker og det hele ligger inde under en form.

Hvorfor fanden vil den ikke afvikle min funktion/sub ???

Henrik