Access - REGRESAR A CUADRO DETEXTO SI NO CUMPLE CONDICION

HOLA BUENAS NOCHE UNA CONSULTA TENGO EL SIGUIENTE EVENTO EN UN CUADRO DE TEXTO

Private Sub CLAVE_LostFocus()
Me.CLAVE = Nz(CLAVE, 0)
If CLAVE = 0 Then
MsgBox "ESCRIBE UN NUMERO EN EL CUADRO DE TEXTO"
End If
End Sub

LO QUE NECESITO ES QUE SI EL CUADR DE TEXTO "CLAVE" TIENE UN NUMERO "0" NO ME DEJE PASAR AL SIGUIENTE CUDRO DE TEXTO HASTA QUE EL VALOR EN EL CUADRO DE TEXTO "CLAVE" SEA DISTINTO A "0"

ESPERO PUEDAN AYUDARME

SALUDOS

IF val(me.CLAVE) = 0 Or me.CLAVE="" then
MsgBox "La clave deber tener un valor", vbInformation, "Aviso"
me.CLAVE.setfocus
exit sub
End If

enrique muchas gracias por la respuesta, sabes probe tu solucion y me funciono en parte, lo que tambien necesito es que si el cuadro de texto CLAVE tiene "0" o nada no me deje pasar al otro cuadro de texto hasta que le coloque un argumento valido podras seguirme ayudando

gracias y saludos

If IsNull(Me.CLAVE.Value) Or IsEmpty(Me.CLAVE.Value) Or Val(Me.CLAVE.Value) = 0 Then
MsgBox "La clave deber tener un valor", vbInformation, "Aviso"
Me.CLAVE.SetFocus
Exit Sub
End If

Algunas veces y no se porque (no se si sea mi access 2002) la validación me marca un error de uso no valido de null, en esos casos lo separo de esta forma, es más codigo pero funciona.

If IsNull(Me.CLAVE.Value) Then
MsgBox "La clave deber tener un valor", vbInformation, "Aviso"
Me.CLAVE.SetFocus
Exit Sub
End If

If IsEmpty(Me.CLAVE.Value) Or Val(Me.CLAVE.Value) = 0 Then
MsgBox "La clave deber tener un valor", vbInformation, "Aviso"
Me.CLAVE.SetFocus
Exit Sub
End If

Ok gracias es una respuesta que solucionó mi problema te agradesco mucho Enrique

saludos y gracias