button click to move selected multi-column list box items to new list box

[kranic3]

As the title says im struggling to get this to function properly. all I can manage to do its put all items into 1 single column of a list box, spaced out.

Private Sub CommandButton9_Click()
     
    Dim i As Long
    Dim Duplicate As Boolean
     
    If Me.genbuildhistorylist.Text <> "" Then
        For i = 1 To Me.genemaillist.ListCount
            If Me.genemaillist.List(i - 1) = Me.genbuildhistorylist.Column(0, _
            Me.genbuildhistorylist.ListIndex) & vbTab & _
            Me.genbuildhistorylist.Column(1, Me.genbuildhistorylist.ListIndex) Then
                 'Duplicate Entry
                Duplicate = True
                Exit For
            End If
        Next i
        If Duplicate = False Then
            Me.genemaillist.AddItem Me.genbuildhistorylist.Column(0, _
            Me.genbuildhistorylist.ListIndex) & vbTab & _
            Me.genbuildhistorylist.Column(1, Me.genbuildhistorylist.ListIndex)
        End If
    End If
End Sub

how would i go about altering this to rather than tabbing, to select the next column of the list box?