For a multi-column List Box try something like this.
Option Explicit
Private Sub CommandButton1_Click() 'Add Item
Dim i As Long
Dim Duplicate As Boolean
If Me.ListBox1.Text <> "" Then
For i = 1 To Me.ListBox2.ListCount
If Me.ListBox2.List(i - 1) = Me.ListBox1.Column(0, _
Me.ListBox1.ListIndex) & vbTab & _
Me.ListBox1.Column(1, Me.ListBox1.ListIndex) Then
'Duplicate Entry
Duplicate = True
Exit For
End If
Next i
If Duplicate = False Then
Me.ListBox2.AddItem Me.ListBox1.Column(0, _
Me.ListBox1.ListIndex) & vbTab & _
Me.ListBox1.Column(1, Me.ListBox1.ListIndex)
End If
End If
End Sub
Private Sub CommandButton2_Click() 'Remove Item
If Me.ListBox2.Text <> "" Then
Me.ListBox2.RemoveItem Me.ListBox2.ListIndex
End If
End Sub
Try this code for putting the values into the worksheet.
Private Sub CommandButton3_Click() 'Submit
Dim i As Long
Dim n As Long
Dim Part1 As String
Dim Part2 As String
For i = 1 To Me.ListBox2.ListCount
n = InStr(1, Me.ListBox2.List(i - 1), vbTab)
Part1 = Left(Me.ListBox2.List(i - 1), n - 1)
Part2 = Mid(Me.ListBox2.List(i - 1), n + 1, _
Len(Me.ListBox2.List(i - 1)))
Sheets("Sheet1").Range("E" & 11 + i).Value = Part1
Sheets("Sheet1").Range("K" & 11 + i).Value = Part2
Next i
End Sub