[MsAccess]Letter vervangen in string

[Satanic_Surfer]

Hoe kan ik het makkelijkste in bijvoorbeeld de volgende rijtjes alle letters R vervangen door 1 letter R?

Criteria CountOfCriteria
RZBS 3027
RB 1553
RBS 1273
R 407
RRBS 353
RRZBS 289
RRZB 256
RGZBS 158
RRRBS 83
RRB 72
RRRRZBS 41

Ik heb het geprobeerd mbv de replace functie:
Replace([Criteria];("RR" Or "RRR" Or "RRRR" Or "RRRRR");"R")
Maar dit werkt niet (goed).
Iemand suggesties?