Formato Data Americana no listBox

Boa Noite!

De Já quero agradecer a todos pelas dicas aqui no fórum, estou aqui para mais um pedido.

Estou com uma planilha e nela tenho ListBox que ao ser selecionado transporta os registros para o TextBox, porem ao importar os dados do ListBox para TextBox ele inverte as datas como se fosse formato americano e as vezes até muda.

No Click_ListBox, estou utilizando comando abaixo para importação listbox para Texbox.
Private Sub ListBox1_Click()
On Error GoTo Trata_Erro
txtId.Text = ListBox1.List(ListBox1.ListIndex, 0)
txtOc.Text = ListBox1.List(ListBox1.ListIndex, 1)
txtStatus.Text = ListBox1.List(ListBox1.ListIndex, 2)
txtLinha.Text = ListBox1.List(ListBox1.ListIndex, 3)
txtDtOC.Value = VBA.Format(ListBox1.List(ListBox1.ListIndex, 4), “dd/mm/yyyy”)
txtNeg.Text = ListBox1.List(ListBox1.ListIndex, 5)
txtDtAceite.Value = VBA.Format(ListBox1.List(ListBox1.ListIndex, 6), “dd/mm/yyyy”)
txtProjeto.Text = ListBox1.List(ListBox1.ListIndex, 7)
txtRequisitante.Text = ListBox1.List(ListBox1.ListIndex, 8)
txtValorOc.Text = VBA.Format(ListBox1.List(ListBox1.ListIndex, 9), “currency”)
txtParcial.Text = VBA.Format(ListBox1.List(ListBox1.ListIndex, 10), “currency”)
txtPendente.Text = VBA.Format(ListBox1.List(ListBox1.ListIndex, 11), “currency”)
txtTotal.Text = ListBox1.List(ListBox1.ListIndex, 12)
txtRemessa.Value = VBA.Format(ListBox1.List(ListBox1.ListIndex, 13), “dd/mm/yyyy”)
txtSituacao.Text = ListBox1.List(ListBox1.ListIndex, 14)
txtNF.Text = ListBox1.List(ListBox1.ListIndex, 15)
txtDtFatura.Value = VBA.Format(ListBox1.List(ListBox1.ListIndex, 16), “dd/mm/yyyy”)
txtDtPedido.Value = VBA.Format(ListBox1.List(ListBox1.ListIndex, 17), “dd/mm/yyyy”)
txtPeças.Text = ListBox1.List(ListBox1.ListIndex, 18)
txtObs.Text = ListBox1.List(ListBox1.ListIndex, 19)
Trata_Erro:


Estou Postando a planilha fiquem a vontatde para fazer alteração conforme necessário

[Ctr_VALE.xlsm|attachment](upload://7SH0ALMB4zafIcUQTMogQqduxz8.xlsm) (516,0,KB)