Can you assist me with a code to extract the last three digits from this alpha string AKAKAK44000XXXXXXX164. I do not want the =Right function.....I want a VBA Code.

then after I extract the last three digits I would like the code to also include a replacement macro that will read something like:

Cells.Replace What:="164", Replacement:="ABA", LookAt:=xlPart, SearchOrder:=xlByRows

It's pretty simple and I can do it using a worksheet function but I want something more efficient.

Thank You.