Crear un Msg Box

Hola, soy nuevo en esto. Me gustaría crear un msgbox que diera un mensaje cuando la celda J21 fuera igual o superior al 90% de J7. Es una subrutina dentro de una mas grande que va como "iterando" y en cada iteración me gustaría que el programa hallara si he alcanzado ese 90% de J7 que seria el presupuesto total.

Había pensado algo así pero no funciona:

Sub Alerta_10()
Range( J7 ).Select
If Range ( J21) > RC*0.9 then
MsgBox ( Te estas gastando la pasta cabrón )
End If
End Sub

Muchas gracias!!