Copying Certain Text From Numerous Cells using Macro

[Sean_Needs_Help]

Hi Guys,
This is probably the easiest fix in the world but I can't seem to find a good solution to this at the moment;
The issue I am having is that I need to create a database based on a scanned serial numbers, but only need certain information from these barcodes. An example of the kind of thing I am looking at;
Barcode: 41BLSTHOMAS9991987
From this Barcode i want to copy and paste the characters THOMAS and 1987 into Column B & C of that row. The barcode always has the same amount of characters and the characters are always in the same place (ie dates of birth will always be 4 characters long and will alway be the 15-18th characters).
Does anyone know any simple excel formula or VBA code that code do the above by any chance?

Thanks!

[Pecoflyer]

Hi
perhaps Data - Text to columns - Fixed width and set delimiters as needed

[Sean_Needs_Help]

Thanks Pecoflyer, that works in a way but it makes it a bit awkward.
Is there any way to select a certain group of characters in a cell without splitting it up, in Vba it seems to know where these characters are but selecting a specified group doesn't seem to be an option.

[macropod]

Assuming the 999 after THOMAS is just padding (i.e. longer names would have fewer 9s; shorter names, more), you could use formulae such as:
=SUBSTITUTE(MID(A1,6,9),9,"")
=RIGHT(A1,4)