Listbox Date and amount text Type

[kirana2014]

Dear all,
How to build a list box that shows date = 01/11/2017 amount = 1.200,00
Date is on C and amount is on G

I use below code to load the data to listbox

Private Sub cmdLoad_Click()
Dim DataSH As Worksheet
On Error GoTo errhandler:

ListBox1.List = Sheets("Registered").Range("A2:M" & [a65536].End(3).Row).Value


On Error GoTo 0
Exit Sub
errhandler:
MsgBox "No match found for " & txtSearch.Text
End Sub