Breaking up characters

[skatmandu2002]

Really simple, but I'm being a dunce...

In A1 I have a code (e.g. ="1010")
In the next four cells, I want the first, second, third and forth charters to be displayed. These can be taken as text instead of value, as the code in A1 is not a value.

So,e.g...
B1="1"
C1="0"
D1="1"
E1="0"

Thanks!!

[carsto]

B1 =mid($a1,1,1)
c1 = mid($a1,2,1)
d1 = mid($a1,3,1)
e1 = mid($a1,4,1)

[skatmandu2002]

Thank you kindly.

[shg]

Or in B1 and copy across, =MID($A1, COLUMNS($B1:B1),1)