Mostrar en textboxes registros con la fecha más reciente

Hace tiempo me ayudaste con este código para encontrar el registro con la fecha más actual en base al numero de empleado y me funciono muy bien, mi pregunta es como le puedo hacer para que me muestre
lo mismo pero ahora serán los últimos 4 registros en otros textbox en base al mismo numero de cliente y también con la fecha más reciente a la más antigua

Por ejemplo:
textbox1=numero de cliente

textbox2=nombre de cliente
textbox3=fecha mas reciente
textbox4=monto

textbox5=nombre de cliente
textbox6=fecha mas reciente excepto la del textbox 3
textbox7=monto

textbox8=nombre de cliente
textbox9=fecha mas reciente excepto la del textbox3 y 6
textbox10=monto

textbox11=nombre de cliente
textbox12=fecha mas reciente excepto la del textbox 3, 6 y 9
textbox13=monto

de antemano muchas gracias por su ayuda.

Private Sub CommandButton1_Click()
'Buscar
    'Por.Dante Amor
    '
    set h = sheets("Hoja4")
    If TextBox1 = "" Then
        MsgBox "Captura número de cliente"
        Exit Sub
    End If
    '
    wmax = 0
    If IsNumeric(TextBox1) Then num = Val(TextBox1) Else num = TextBox1
    Set r = h.Columns("C")
    Set b = r.Find(num, LookAt:=xlWhole)
    If Not b Is Nothing Then
        celda = b.Address
        Do
            'detalle
            If h.Cells(b.Row, "C") > wmax Then
                wmax = h.Cells(b.Row, "C")
                fila = b.Row
            End If
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
        '
        TextBox2 = h.Cells(fila, "B")
        TextBox3 = h.Cells(fila, "C")
        TextBox4 = h.Cells(fila, "D")
    Else
        MsgBox "El número del cliente no existe"
    End If
End Sub