Gap btw rows in List Box

[asyamonique]

Good Day,
Is it possible to add function in given below code for showing rows two by two?
I wand gap btw the rows to make the list easy understanding when it show whole list.

Many thanks.

Dim a, i As Long, ii As Long, b(), n As Long
ListBox1.Clear
With ComboBox1
If .Text = "" Then Exit Sub
If WorksheetFunction.CountIf(Worksheets("list").Range("a:a"), .Text) = 0 Then
Exit Sub
End If
a = Worksheets("list").Range("a1").Resize(Worksheets("list").Range("a" & Rows.Count).End(xlUp).Row, 35).Value
For i = 1 To UBound(a, 1)
If a(i, 1) = .Text Then
n = n + 1: ReDim Preserve b(1 To 35, 1 To n)
For ii = 1 To UBound(a, 2)
b(ii, n) = a(i, ii)
Next
End If
Next
End With
With ListBox1
.ColumnCount = 35
.ColumnWidths = "0;0;150;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;42;0"
.Column = b
End With

 

[DanteAmor]

Just change the 1:

n = n + 1: ReDim Preserve b(1 To 35, 1 To n)

For a 2:

n = n + 2: ReDim Preserve b(1 To 35, 1 To n)

If you want the first item to start in the first row of the listbox, then add this line: n = -1 before "a = Worksheets..."

    n = -1
    a = Worksheets("list").Range("a1").Resize(Worksheets("list").Range("a" & Rows.Count).End(xlUp).Row, 35).Value

 

[asyamonique]

Thank u so much.