Búsqueda listbox en dos columnas

Tengo este código que busca en la columna A los valores ingresados en el TXTBOX, pero necesito que busque un monto que se encuentra en las Columnas C y DE y los muestre con el mismo orden actual

Columna 1 A - Columna 2 C Columna 3 D Columna 4 E Columna 5 F

Private Sub BusquedaManual_Click()
Call EliminarContenido
'
Set r = Columns("A")
Set b = r.Find(BusquedaTxt, lookat:=xlPart)
If Not b Is Nothing Then
ncell = b.Address
Do
'detalle
ContenidoRol.AddItem Cells(b.Row, "A")
ContenidoRol.List(ContenidoRol.ListCount - 1, 1) = Format(Cells(b.Row, "C"), "$ #,#00")
ContenidoRol.List(ContenidoRol.ListCount - 1, 2) = Format(Cells(b.Row, "D"), "$ #,#00")
ContenidoRol.List(ContenidoRol.ListCount - 1, 3) = Cells(b.Row, "E")
ContenidoRol.List(ContenidoRol.ListCount - 1, 4) = Cells(b.Row, "F")
ContenidoRol.List(ContenidoRol.ListCount - 1, 5) = Cells(b.Row, "G")
ContenidoRol.List(ContenidoRol.ListCount - 1, 6) = Format(Cells(b.Row, "H"), "hh:mm")
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
'
Sheets("Hoja1").Select
End Sub