¿Cómo comparar dos fechas en macro?

Hola, quisiera comparar dos fechas pero cuando hago mi macro sigue corriendo como si no hiciera la comparación. Para explicarme mejor aquí copio esta parte de mi macro:

valor = 0
c = "01/" & mes & "/" & anio 'fecha que quiero comparar
fila = ActiveCell.Row
fecha = Cells(fila, 20).Value 'fecha que se encuentra en la celda
Do While fecha < c

f = Cells(fila, 20).Activate
fecha = Cells(fila, 20).Value
x = Cells(fila, 23).Value 'importeml
valor = valor + x
fila = ActiveCell.Row + 1
Loop

Gracias por su tiempo