Use this formula.........
=LEFT(A1,1)&CHAR(10)&MID(A1,2,2)&CHAR(10)&CHAR(10)&MID(A1,5,5)-1&CHAR(10)&RIGHT(A1,1)

Then, enter ONE cell somewhere off area formatted as advised previously by
hand, using the Alt-Enter after each character................then using the
FormatPainter, copy this format over to the above formulaed cells..........

Vaya con Dios,
Chuck, CABGx3

You could use a macro to change the values, too.

Select your range to fix and run this:

Option Explicit
Sub testme()

   Dim myRng As Range
   Dim myCell As Range
   Dim myStr As String
   Dim iCtr As Long
   
   Set myRng = Nothing
   On Error Resume Next
   Set myRng = Intersect(Selection, _
                   Selection.Cells.SpecialCells(xlCellTypeConstants))
   On Error GoTo 0
   
   If myRng Is Nothing Then
       MsgBox "No constants here!"
       Exit Sub
   End If
   
   For Each myCell In myRng.Cells
       myStr = myCell.Text
       If Len(myStr) > 4 Then
           MsgBox myCell.Address(0, 0) & " not changed!"
       Else
           myStr = Right("0000" & myStr, 4)
           myStr = Mid(myStr, 1, 1) & vbLf _
                    & Mid(myStr, 2, 1) & vbLf & vbLf _
                    & Mid(myStr, 3, 1) & vbLf _
                    & Mid(myStr, 4, 1)
           myCell.Value = myStr
           myCell.WrapText = True
       End If
   Next myCell
   
End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm