Populate Listbox With Array

I've got a list box which I want to fill with a two column array, with items from a sheet based on a criteria selected by userform fired from another sheet.

Private Sub VariationsApprovedListMake()

Dim ws As Worksheet
Dim MyList(10, 2) As String
Dim M%, n%

Set ws = Worksheets("Variations")

LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row

'Clear ListBox
lbVariationsApproved.Clear

'>
With lbVariationsApproved
.ColumnCount = 2
.ColumnWidths = "25;25"
.Width = 200
.Height = 100
End With.....................