Sub Macro1()
Dim i, x, v(), arr1()
x = Range("A65536").End(3).Row
arr1 = Range("A2:A" & x).Value
For i = 1 To x - 1
s = Split(arr1(i, 1), "-")
ReDim v(UBound(s))
v(0) = s(0)
v(1) = Format(s(1), "00000#")
v(2) = Format(s(2), "0#")
v(3) = Format(s(3), "00#")
arr1(i, 1) = Join(v, "-")
Next
Range("B2:B" & x).Value = arr1
Erase arr1, v, s
End Sub