Claudinei.

 

Entendi o que você quer fazer.

 

Você pode tentar assim:

 

If Len(text1.text) <=14 Then

'    Chama a função necessaria

End if

 

Assim ele vai pegar todos os produtos que são menores ou igual a 14.

 

Aquela que você postou primeiro ele irá pegar tudo que for maior ou igual a 13, ou seja .. 14, 15, 16, 17, 18 e etc  ...

 

Flwww

Olha o que eu faço, gravo o código do produto com 14 digitos, mesmo por que, voce tem produtos com menos digitos que é o caso de cigarros.

Vamos supor que o leitor leia apenas 7 digitos, ou 14, tanto faz:

 

Dim sCODPRO As String

sCODPRO = "00000000000000" & txtCODIGO.Text

txtCODIGO.Text = Right(sCODPRO, 14)

 

Assunto resolvido, independe do tamanho, não haverá problemas com código de nenhum tamanho, o usuário pode até cadastrar um produto com o código "1", digitando apenas "1", vai ficar assim: "00000000000001", sempre terá o tamanho de 14 digitos.

Faço no evento LostFocus.

vlu//