[Resolvido]Atualizar uma Listbox através de outra Listbox

Bom dia, senhores!
Peguei o seguinte código com o professor Avelino Sampaio há algum tempo atrás, funciona perfeitamente para inserir duas colunas, só que no momento agora, eu preciso da terceira coluna na Listbox2.
Trata-se de um código para atualizar uma Listbox (Listbox2) através de outra Listbox (Listbox1). Só que no momento atual não estou conseguindo incluir uma terceira coluna na Listbox2. A Listbox1 tem quatro colunas, nas quais preciso da informação de apenas três colunas.
Já tentei diversas formas mas não consegui nenhum sucesso. Tem como alguém me ajudar?
Segue o código desenvolvido por Avelino Sampaio...

Private Sub Lista_DblClick(Cancel As Integer)
Dim k, j() As String, l%, p%
'verifica se o nome já está na lista
k = Split(Me!Lista2.RowSource, ";")
For l = 1 To UBound(k) Step 2
If k(l) = Me!Lista.Column(1) Then
MsgBox "O nome já está na lista...", vbInformation, "Aviso"
Exit Sub
End If
Next
'limpa as matrizes
Erase k: Erase j

'Adiciona item selecionado na listbox 2
Me!Lista2.AddItem Me!Lista & ";" & Me!Lista.Column(1)
'captura a lista e passa para uma matriz
k = Split(Me!Lista2.RowSource, ";")
'redimensiona a matriz j em função do tamanho da matriz k
ReDim j(((UBound(k) + 1) / 2) - 1)
'passa o conteúdo da matriz k para a matriz j
p = 0
For l = 0 To UBound(k) Step 2
j(p) = k(l + 1) & "|" & k(l)
p = p + 1
Next
'ordena a matriz j em ordem alfabética
WizHook.SortStringArray j
'limpa a listbox 2
Me!Lista2.RowSource = ""
'remonta a listbox2 com os dados ordenados da matriz j
For l = 0 To UBound(j)
Me!Lista2.AddItem Mid(j(l), InStr(j(l), "|") + 1) & ";" & Left(j(l), InStr(j(l), "|") - 1)
Next
End Sub

Bom dia,

Como está parte do projeto?

Bom dia, Tauron!
Amigo,
Já adiantei todas as partes possíveis que não dependem diretamente deste código.
Como eu falei antes, não estou conseguindo incluir uma terceira coluna na Lstbox2.
Exemplo:
Listbox1: id_produto(0), descricao(1), preco(2), id_fornecedor(3), local(4), unidade(5).
Listbox2: id_produto(0), descricao(1), preco(2).
Se possível acrescentar a terceira coluna (preco(2)) na listbox2.
Desde já agradeço pela atenção.

Boa noite, pessoas!
Alguém poderia me ajudar nesta questão?

Boa noite, pessoas!
Alguém tem alguma sugestão ou dica?????

Se possível, anexe o arquivo com o formulário que contem o listbox.

Bom dia, DamascenoJr.!
Segue arquivo conforme solicitação.

Tem alguma solução? Caso não tenha pode finalizar a postagem!

Olá!
O objetivo é apenas adicionar o item de uma lista para outra?

Se for isso, tenho uma ideia bem mais simples do que a que já está apresentada.

Mas para isso, eu usaria um código próprio e não o que já tem usado.

Pode ser Marcelo David!

O objetivo é apenas esse mesmo, adicionar itens de uma lista para outra

Há as seguintes coluna na listbox chamada lista ID, GTIN e Descrição.
No caso, vc quer incluir a coluna GTIN na listbox chamada listaprodutos.

Correto?

Isso mesmo, a três colunas!

Teste por favor:

Baixe aqui.

Muito obrigado, Marcelo David!
Me atende muito bem. Se não fosse abusar demais da sua presteza, tem como colocar em ordem crescente pela Descrição?
Caso seja muito trabalho não precisa responder, mas de qualquer forma fico-lhe bastante agradecido.
Sucesso, meu amigo!

Opa, que bom que funcionou em parte.
Vou concluir algumas tarefas e havendo tempo, ainda hoje
apresento algo.

Fico no aguardo!

Segue

Muito obrigado, Avelino Sampaio!
Atendeu perfeitamente, grato a todos que participaram!