Formulário Vendas não puxa a quantidade do código de barras

Bom dia

A dias venho tendo um problema com meu formulário de vendas e não consigo ajuda para resolver o problema.

Tenho um formulário vendas que piloto me passou um modelo, e uso o seguinte código abaixo para puxar a quantidade do código de barras EAN13. Mas tenho o seguinte problema: Cadastrei o produto Farinha de Maracujá que na balança to seu código é 1 quando é pesado com qualquer peso e é gerado o código de barras fica 2000100004123, ai o sistema ler a quantidade que é 4,123 kg. Ai cadastro o produto de número 2 que é a Farinha de Trigo Integral com o código de barras 2000200002323 que seu peso é 2,323 kg ai o sistema não ler a quantidade.

Já cadastrei vários produtos com código de barras diferente e nenhum deu certo. E não sei o que mais fazer.

Alguém tem uma solução para o meu problema?

Código:



Sub PegaProduto()
Dim QtdeProdutos As Integer
Dim Linha
Dim MsgErro

StrPeso = Mid(Me.txtCodigoBarras.Value, 9, 1) & "," & Right(Me.txtCodigoBarras.Value, 4)
StrPeso = CDbl(StrPeso)
Me.txtCodigoBarras = Left(Me.txtCodigoBarras.Value, 8)
         
QtdeProdutos = Me.ltxProdutos.ListCount ' - 1
    For Linha = 0 To QtdeProdutos
        If Me.ltxProdutos.Column(1, Linha) = Me.txtCodigoBarras.Value Then
            Estoque = Me.ltxProdutos.Column(4, Linha)
            Me.txtDescricao.Value = Me.ltxProdutos.Column(2, Linha)
            Me.txtPrecoUnitario.Value = Format(Me.ltxProdutos.Column(3, Linha), "#,##0.000")
            Me.txtQtde = StrPeso
            End If
        Exit Sub
    Next Linha
    MsgBox "Produto não cadastrado.", vbInformation, "SysPDV"
    Me.txtCodigoBarras.SetFocus
    Incluir = False
End Sub



Boa Tarde

Alguém pode me ajudar?