[Resolvido]Caixa de listagem para caixa de texto

Vi um exemplo no forum e tentei adaptar, o código é:

Código:

Private Sub Lista502_Click()
Call BoundData
Me.Texto515 = Me.Lista502.ItemsSelected.Count
End Sub

Sub BoundData()

    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!Autos_4_4
    Set ctl = frm!Lista502
   
Me.CaixaDeTexto = Null

    For Each varItm In ctl.ItemsSelected 'eis o salvador da Pátria. Mais informações coloque o cursor no meio da palavra ItemsSelected e aperte F1.
   
    If IsNull(Me.CaixaDeTexto) Or Me.CaixaDeTexto.Value = "" Then
        Me.CaixaDeTexto = ctl.ItemData(varItm)
       
      Else
     
        Me.CaixaDeTexto = Me.CaixaDeTexto & ", " & ctl.ItemData(varItm)
      End If
               
    Next varItm
End Sub

O problema é que me copia a coluna 1 eeu queria copiar a coluna 3 de Autos_4_4 para CaixaDeTesto, ou seja

Me.Lista502.Column(3) & "; " & ""

Como fasso?

tirei daqui a ideia
http://maximoaccess.forumeiros.com/t8300-resolvidocapturar-valores-de-listbox-multipla-selecao-e-passar-para-uma-textbox

Já resolvi, obrigado na mesma.

Mudei a ordem das colunas pondo a 3.ª em 1.º.