Function problem

Hello, im trying to make a function that will run same code from different labels, but keep getting an error that function or sub are not defined.

Here is the code im trying to get to work:

Private Function fEvalLabel(lbl As Access.Label)
If lbl.Caption = Chr(254) Then
  lbl.Caption = Chr(168)
Else
  lbl.Caption = Chr(254)
End If
End Function


Private Sub Label1_Click()
  Call fEvalLabel(Me![Label1])
End Sub

The function is in a class module..
Any ideas?