Question: Copy and paste split string

I've been working for a while with tracking numbers that come in through an excel spreadsheet.

The tracking numbers are in single cells and are in the format, xxxyyy#######zzzz (All numbers)

For various reasons, I need to leave the original number unchanged. However, I also need to have it split on a seperate worksheet.

Where:
the xxx goes in B2
the yyy goes in C2
the ####### goes in A23
the zzzz goes in B23

I did not design it. I don't know why they designed it this way. I cannot change the design. I wish I could.

So I'm stuck
1) manually typing in the numbers into the four locations.
2) Copying the tracking numbers to a new tab, using text to columns, fixed width to split the string. Than copying and pasting all four to the correct locations.

Both are a huge time waste.

What I would like to be able to do is, copy the whole tracking number, than run a macro that takes the string from the clipboard, and auto splits the string into the four sections and pastes the results into the correct cells for me.

Anyone know how or even if this can be done?

IMPORTANT:
You need to add the Microsoft Forms 2.0 library to be able to get data off the clipboard in VBA. Instructions on how to do that are here, including what to do in Forms 2.0 isn't listed in the references. Once you add that, you should be fine.

Sub ninjabear()
On Error GoTo ErrExplain

Set DataObj = New MSForms.DataObject
   
DataObj.GetFromClipboard

Tracking = DataObj.GetText(1)

Range("B2").Value = Left(Tracking, 3)
Range("C2").Value = Mid(Tracking, 4, 3)
Range("A23").Value = Mid(Tracking, 7, 7)
Range("B23").Value = Right(Tracking, 3)


ErrExplain:
If Err <> 0 Then MsgBox ("clipboard is empty or does not contain text")
End Sub

I wasn't able to get the clipboard to string part to work. (System admin restrictions) So I created a dialogue box to paste the value into and the rest of your code works when I click "Ok". It's not perfect, but it works a lot better now. Thank you,