[Resolvido]Máscara ao digitar

Boas galera.....

Seguinte, como faço p/ diferenciar o que digito em uma caixa de texto p/ o que é lido pelo leitor de código de barras.
Explico, gostaria de que ao digitar um determinado código (via teclado) em uma caixa de texto e quando teclar enter ou tab, automaticamente sejam gerados zeros a esquerda do código, e que, quando for utilizado o leitor de código de barras não sejam gerados os zeros (pois os códigos impressos nas etiquetas já possuem os zeros). Será que tem como separar?

Talvez assim:

Private Sub txtTeste_AfterUpdate()
If IsNumeric(Me.txtTeste) Then
Me.txtTeste = Format(Me.txtTeste, "0000")
End If
End Sub

Cumprimentos.

Desculpe a demora em responder o tópico, irei testar o comando e postarei em seguida, no mais obrigado.

O Fórum agradece o Retorno.