[Resolvido]Uso da função IsNull num If Then

Boa tarde
Tenho uma instrução DLookup do tipo

Dim A as String
A = DLookup ....... etc. etc. etc. em que o DLookup faz a busca numa consulta.

Acontece que por vezes A é um resultado nulo. O DLookup não encontra valor correspondente na consulta.
Nestes casos, quero que, através de uma instrução If Then Else, a aplicação tenha um determinado procedimento (aviso ao utilizador por uma MsgBox).

Já tentei usar a função IsNull de todas as formas dentro do If Then, e dá-me sempre erro.
Alguém pode dar uma ajudinha?
Obrigado

If IsNull(DLookup("[SeuCampo]", "SuaConsulta", "[SeuCampoCriterio] = '" & Me.SeuCampoCriterio & "'")) Then

Exemplo;

Dim strBusca As String
If IsNull(DLookup("[CampoNome]", "SuaConsulta", "CampoNome='Joao Paulo'")) Then
   MsgBox "Não encontrado...", vbCritical
Else
   strBusca = DLookup("[CampoNome]", "SuaConsulta", "CampoNome='Joao Paulo'")
   MsgBox strBusca
End If

Obrigado pela dica.
Resolvi a questão criando um campo desvinculado e invisível, chamado "registo" e cujo valor é determinado pelo DLookup.
Na instrução If Then, usei

If IsNull([registo]) Then

E tudo funciona na perfeição.

Mais uma vez obrigado e um FELIZ NATAL para todos.