Function SpliText in a macro

Two months ago, DonkeyOte help me (http://www.excelforum.com/excel-prog...e-formula.html) solve a problem, with this function:

Function SplitText(rngData As Range, bChars As Byte, strDelim As String) As String
Dim b_i As Byte
For b_i = 0 To (Application.RoundUp((Len(rngData.Value) / bChars), 0) - 1) Step 1
    SplitText = SplitText & strDelim & Mid(rngData.Value, (b_i * bChars) + 1, bChars)
Next b_i
SplitText = Replace(SplitText, strDelim, "", 1, 1)
End Function

At that moment, everything works perfect because what I want is transform code numbers like this one
0101010100
into this
01-01-01-01-00
but suddenly start having different kind of code numbers like those
5010301 ( ....which I want transform in this....: 05-01-03-01 )
101050100 ( ....which I want transform in this....: 01-01-05-01-00 )
0101010100 ( ....which I want transform in this....: 01-01-01-01-00 )
02-02-04-00 ( ....which I want transform in this....: 02-02-04-00 )
01.10.01.05.00 ( ....which I want transform in this....: 01-10-01-05-00 )

Can somebody help me.
Thanks in advance

I attached the files which I.m using
*I open the "testnew1" with the "Action"