[Resolvido]Não entra na segunda condigção

boa tarde colegas , coloquei i campo para aceitar somente números, até aí ok, mas ele não entra na segunda condição.

Código:

If Not IsNumeric(cnes) <> "" Then
    MsgBox "Somente número", vbInformation, "ConsulMed"
 
ElseIf Len(Me.cnes) < 7 Then
        MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
        Me.cnes = Null
        Me.cnes.SetFocus
          End If

Código:

 If Not IsNumeric(Chr$(KeyAscii)) Then
MsgBox "somente números", vbInformation, "ConsulMed"

KeyAscii = 0

 
ElseIf Len(Me.cnes) < 7 Then
        MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
        Me.cnes = Null
        Me.cnes.SetFocus
          End If
       
End Sub

Cara, eu posso dar algumas sugestões:
1 - Cria uma máscara pra esse campo. É possível criar uma máscara que exija a informação de 7 dígitos. No campo máscara de entrada digite o seguinte: 0000000;;_
2 - O comando

Código:

If Not IsNumeric(cnes) <> "" Then

pode ser substituído por esse

Código:

If Not IsNumeric(cnes) Then

3 - Você criou a variável cnes que está informando no IF? Eu pergunto isso porque no primeiro IF você faz referência a uma variável e no Elseif você faz referência ao campo do formulário.

Espero ter ajudado

consegui aqui resolver .
a cnes é um campo.

Código:

Private Sub cnes_AfterUpdate()
If Not IsNumeric(cnes.Text) Then
MsgBox "so numeros"
  
ElseIf Len(Me.cnes) < 7 Then
        MsgBox "Digito Incorreto" & vbCrLf & "O Cnes contem 7 dígitos", vbInformation, "ConsulMed"
        Me.cnes = Null
        Me.cnes.SetFocus
           End If
        

Obrigado amigo
fiquei de madrugada resolvendo isso, coloquei o topico agora, e agora consegui , não estava resolvendo porque dependia de txt e também substitui pelo seu codigo