Função passando string no critério da consulta

Galera, preciso de vossa ajuda, gostaria de passar o conteudo de uma variavel para que fosse a string do critério da consulta, segue a função:

Public Function fncRateio() As String

If varTipoRateio = 1 Then
fncRateio = "Como " & Chr(34) & "*" & Chr(34)
Else
fncRateio = "Negado Como " & Chr(34) & "*" & "Rateio DAG" & "*" & Chr(34)
End If

End Function

varTipoRateio é a variavel integer que recebe o valor

onde fncRateio() coloco no critério da consulta, mas não funciona!

Veja o simples;

http://maximoaccess.forumeiros.com/t14199-resolvidocriterio-em-consulta-com-variavel-global-em-relatorios-public

Nossa, não sei onde estou errando, segue arquivo se puder dar uma olhada!