Excel 2007 Stringwurst zerlegen

cat exceldatei.alt | sed "s/[A-Z]/|&/g" >exceldatei.neu

Sub SplitLines()
    Set regex = CreateObject("vbscript.regexp")  
    regex.Global = True: regex.IgnoreCase = False: regex.MultiLine = True
    regex.Pattern = "(?=([a-z][A-Z])|([a-z]\d+)|(\d[A-Z]))"  

    With ActiveSheet
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            Set matches = regex.Execute(cell.Value)
            Dim SplitArray()
            ReDim SplitArray(matches.Count)
            P = 0: I = 0
            For Each myMatch In matches
                SplitArray(I) = Mid(cell.Value, P + 1, myMatch.FirstIndex + 1 - P)
                P = myMatch.FirstIndex + myMatch.Length + 1
                I = I + 1
            Next
            SplitArray(I) = Mid(cell.Value, P + 1)
            cell.Resize(1, UBound(SplitArray) + 1).Value = SplitArray
        Next
    End With
End Sub