I think you said your string will look like so:

A12B32C112D33

Is that so?

If yes, then here is a way to do it:

dataIN = "A12B32C112D332" ' or however you get data into the PC

start = instr(dataIN, "A") ' find the A
stop = instr(dataIN, "B") ' find the B
A = mid(dataIN, start+1, stop-start-1) ' everything between the A & B is A

start = instr(dataIN, "B")
stop = instr(dataIN, "C")
B = mid(datain, start+1, stop-start-1)

start = instr(dataIN, "C")
stop = instr(dataIN, "D")
C = mid(datain, start+1, stop-start-1)


until the last entry

start = instr(dataIN, "D")
D = mid(dataIN, start+1)

Since D is the last on the string it automatically is everything to the right of D (no Stop= parameter)