Extract letter and numbers

[walkewo]

I need to extract the letter C followed by 3 numbers from cell A1 in this file. The code could be anywhere in the description. See example below

PIPING,6"F3-9906-C712-RXV

<tbody>
</tbody>

 

[ranman256]

function getCode()
dim i as integer
dim vWord

vWord = activecell.value
i = instr(vWord, "-C")
if i >0 then
   vWord = mid(vWord,i+1)
   i = instr(vWord, "-")
   if i > 0 then
       vWord = left(vWord,i-1)
       getCode = vWord
   else
       getCode = vWord
   endif
endif
end function

 

[AlanY]

try

=MID(A1,SEARCH("-C???-",A1)+2,3)