I have a list of many part numbers of varying length and formats that I am trying to obtain the last two numerics within that part number. the part number could be like cr2344-32-05 or it could be 3239ew06wx. I need to return only the 05 or 06. I have tried to test this in a text box using some code I found on microsoft.

Code:
Function RemoveAlphas (ByVal AlphaNum as Variant)

   Dim Clean As String
   Dim Pos, A_Char$
...