Alternativ til INSTR + wildcard nummer

Hejsa,
jeg arbejder med celler, der indeholder forekomster af RD1xxxxx, RD2xxxxx og RD3xxxxx sammen med en masse andet tekst.

eksempelvis:
"Source docs RD161512, RD215623 and partially RD300651, transferred by xxx xxxx"

PT har jeg været nødt til at lave 3 INSTR sætninger for at finde positionen, og jeg kan herefter extracte værdien med MID, da jeg ved strengen altid er 8 lang
FindRD1 = InStr(1, CellToCheck, "RD1")
FindRD2 = InStr(FindRD1 +1, CellToCheck, "RD2")
FindRD3 = InStr(FindRD1 + FindRD2 +1, CellToCheck, "RD3")

Jeg ved at det tredje bogstav altid er tallet 1,2 eller 3, og det smarteste ville være, hvis jeg kunne lade det 3 bogstav være variablet.
For eksempel: FindRD# = InStr(1, CellToCheck, "RD#")

men INSTR virker ikke med variable numre, så det ser ud til, jeg har fat i den funktion. Nogen foreslag til, hvordan jeg ellers kan løse det?

På forhånd tak :)
Mvh
Lasse