[Resolvido]Função para retornar todos os valores em uma consulta

Prezados,

tenho uma consulta onde dependendo do resultado de uma função que coloco no campo "critério" vai retornar um ou todos os valores da consulta. Abaixo um exemplo simples do que estou precisando:

Function Criterio()
   If MsgBox("Deseja exibir todos os resultados?", vbYesNo) = vbYes Then
       Criterio = "Like *"
   Else
       Criterio = InputBox("Informe a letra desejada")
   End If
End Function

O problema é: caso as condições não sejam atendidas, ela deve retornar todos os registros da consulta. Mas isso não acontece. Que expressão a função deve retornar para que a consulta mostre todos os valores?

já tentei mas nenhuma das alternativas abaixo deu certo:

Criterio = "*"
Criterio = "Like *"
Criterio = "Like '*'"
Criterio = Null
Criterio = Empty

O resultado da função deve ser o mesmo se digitarmos "Like *" (sem as apas) no campo critério da consulta.

Anexei um BD com o exemplo acima para testes. Obrigado!

Talvez assim:

Criterio = "LIKE '*""" & InputBox("Informe a letra desejada") & """*'"

Prezado Criquio,

não deu certo.

If MsgBox("Deseja exibir todos os resultados?", vbYesNo) = vbYes Then
      Criterio = "Like *"
else
...
end if

Se responder a sim, a consulta deverá retornar todos os valores. Mas não estou conseguindo acertar a função para repassar o valor correto na consulta.

Boa tarde,
Veja

Boa noite Alexandre Neves!

funcionou redondo.

muito obrigado por sua ajuda!!!