Adding Items To Multi Column List Boxes

I am using a ComboBox to get a value from the user. The code below will then check my worksheet and if it finds the value will place it into my ListBox.

Dim x As String
myvalue = ComboBox1.Value
A = 5
Do
x = Sheet1.Cells(A, 4).Value
If x = "" Then Exit Sub
If x = myvalue Then Me.ListBox1.AddItem x
A = A + 1
Loop Until Sheet1.Cells(A, 4).Value = ""

The problem is how to alter this code to place the value from column 5 into the ListBox as well as the Value from column 4