Creo que siempre te va a salir de verde porque estas evaluando la fecha de inscripcion y la que tienes que evaluar la fecha actual osea Date creo que asi era el ejemplo que t planteo seba mas arriba bueno eso creo..
If grilla.TextMatrix(i, 7) >= grilla.TextMatrix(i, 8) Then
vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 8), "dd/MM/yyyy"))
If Date > vFechaPago Then
vFechaPago eso es para darle formato a la fecha para que siempre la evalue asi dias/mes/ano bueno eso creo
la fecha de Inscripcion solo te va a funcionar la primera vez despues el otro mes se te que da atras porque e pa lante que vamos, por eso es con proximo pago k tienes que trabajar
Saludos...