Add item multi column listbox VBA

I'm doing a search like this;
From this I want to populate the listBox using 3 columns.

I can get the first 2 columns, but how do I get the 3rd column; that on the right to show the month derived from the address.

This is the relavant code with the notes etc..

a = Split(rngFind.Address, "$")

loc = (a(2))
e = Cells(loc, 1) 'Gives the Company Name in Col A
Col = rngFind.Column

' MsgBox Col but as a number

'MsgBox e 'Gives the Company Name in Col A
'MsgBox loc 'Gives the Row Number

How do I get this part to show that 3rd column

The above shows 2 columns

I tried

Amoung other things