you need to use the left, mid and right functions.

As worksheet functions, if your string is in A1, then:
=left(A1,3)
=mid(A1,4,2)
=mid(A1,6,1)
=mid(A1,7,2)
=right(A1,2)
will give you the different numbers required.
You can then drag this down the columns as neccessary.

Alternatively you can do the same thing in vba:
Sub Macro_1()
dim cl
for each cl in Range("A1:A100")
  Range("B1") = left(Range("A1"),3)
  Range("C1") = "School"
  Range("D1") = mid(Range("A1"),4,2)
  'and so on
next cl
end sub