I don't think you'd even need a Macro for this, just use the "left" function.
So, if your number was in cell A1, put this in cell B1:
=LEFT(A1,17)
Which returns:
:1234567890123456
You could get rid of the leading ":" any number of other ways.
Any reason why you need to use a...