[Resolvido]ListBox para TextBox

Bom dia,

Venho mais uma pedir a vossa ajuda.

Uso um código para pegar os items de uma ListBox para uma TextBox separados por ponto e vírgula

TextBox Exemplo: ItemA; ItemB; ItemC

Código:

Dim i As Integer, S As String
    
    With Me.ListBoxA
        For i = 0 To .ListCount - 1
            S = S & .ItemData(i) & "; "
        Next
    End With
          
    S = Left(S, Len(S) - 2)
    
    Me.txtBoxB = S

A ajuda que eu preciso é adaptar esse código para uma ListBox com 2 colunas. Neste caso pretendia que os items da ListBox ficassem na TextBox assim:

TextBox2 Exemplo: ItemACol1-ItemACol2; ItemBCol1- ItemBCol2; ItemCCol1- ItemCCol2

Obrigado

Bom dia
For i = 0 To .ListCount - 1
if i mod 2 =0 then S=S  & "-" & .ItemData(i) else S=S  & ";" & .ItemData(i)
Next

Obrigado Alexandre pela ajuda,

Não ficou como pretendia, mas deu-me a ajuda necessária para resolver o problema.

Ficou assim:

Código:

Dim i As Integer, S As String
    With Me.ListBoxA
  
        For i = 0 To .ListCount - 1
            S = S & .ItemData(i) & " - " & Me.ListBoxA.Column(1, i) & "; "
        Next

    End With
          
    S = Left(S, Len(S) - 2)
    
    Me.TextBoxB = S

Muito Obrigado