Experimente assim: Set c = .Find(CStr(ean.Text), LookIn:=xlValues, LookAt:=xlPart)

Bom dia Reinaldo,
funcionou o que indicou, no entanto o que estou tomando um surra é com o código abaixo, lembra que o que havia falado foi sobre os listboxn? Da forma abaixo está escrevendo 13 vezes (tam do cod EAN) nos listbox e é para escrever apenas uma vez por bip do leitor.

Private Sub ean_Change()
Sheets("Banco").Select
With Worksheets("Banco").Range("G:G")
Set c = .Find(CStr(ean.Text), LookIn:=xlValues, LookAt:=xlPart)
    c.Activate
    ListBox1.AddItem ActiveCell.Value
    ListBox2.AddItem c.Offset(0, 1).Value
    ListBox3.AddItem "Un"
    ListBox4.AddItem c.Offset(0, 82).Value
End With
End Sub

Consegui com o código abaixo, no entanto preciso que o cursor retorne para o textbox (ean) para nova inserção de dados.

Private Sub ean_Change()
Sheets("Banco").Select
With Worksheets("Banco").Range("G:G")
Set c = .Find(CStr(ean.Text), LookIn:=xlValues, LookAt:=xlPart)
    c.Activate
End With

If Val(ActiveCell.Value) = ean.Value Then
    ListBox1.AddItem ActiveCell.Value
    ListBox2.AddItem c.Offset(0, 1).Value
    ListBox3.AddItem "UN"
    ListBox4.AddItem c.Offset(0, 82).Value
    ean.Value = ""
    ean.SetFocus
    produto.Caption = c.Offset(0, 1).Value
    qtdvenda.Caption = 1
    precovenda.Caption = c.Offset(0, 82).Value
    subtotal.Caption = CDbl(precovenda.Caption) + CDbl(subtotal.Caption)
End If
End Sub

Bom dia Amigos,
consegui chegar ao ponto da planilha em anexo. O que preciso são duas coisas, uma é que o campo EAN fique em loop, ou seja, após a entrada de um código ele limpe o campo e retorne disponível para a próxima entrada. Já estou com dor de cabeça de tentar!!!
Outro ponto importante é que iniciarei a finalização da venda, estou querendo utilizar a tecla F5 como fazer?

Envio abaixo códigos de barras para teste.

7898922572193
7898446866105
7898940472376
7896013527862
7896013527879
7891037009226
7891037013551
7891037013544
7891037009257

Help

Pelo seu exemplo, o loop esperado já e feito (pelo menos com input manual dos codigos). Qto a segunda "iniciarei a finalização da venda" não entendi o que deseja.

Depois de lançar os itens vamos iniciar a forma de pagamento. Ai o somatório será apresentado para que o cliente pague em dinheiro ou cartão. Acho que errei alguma coisa no código pois não está lançando nos lists que estão em cinza.

Segue planilha atualizada. Consegui, agora o que falta é, após o lançamento do codigo de barras ele voltar para o campos ean para novo lançamento. AAAAAAffffffff....

Amigos, outro ponto importante, acho que essa é mais simples. Tem como associar umas das teclas Fx( F1, F2, F3, Fn) na aplicação. Por exemplo ao pressionar a tecla F5 será aberto a tela PAGAMENTO.show?