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