[Resolvido]Validar Caixa de Texto

Bom dia!

aparentemente parece ser bobo, mas ainda não encontrei a solução

Tenho uma caixa de texto onde faço leitura de código de barras (os códigos são do tipo numérico)

mas... devido algum erro não entendo bem uma vez a cada 1000 leituras apresenta uma falha e sai algum caractere tipo letra ou simbolo

bom não posso alterar a caixa de texto para que só aceite número, se a leitura falhar ela deve continuar,

só preciso avisar que houve um erro em especifico

o formato é este com 14 digitos: 16220214567896

as vezes como disse acontece isso:162202145678** ou 162202145678*a ...

fiz assim deu certo


   Dim Verifica As Double
   
   Verifica = Nz(CDbl([minhacaixatexto]) *1, 0)
   
   If Verifica > 0 Then

   MsgBox "inteiro"

   Else

   MsgBox "erro"

   End If