function or vba to Split numbers from one cell

Hi Flebber, this macro should work for you. It assumes your xml data is in A1:A? on Sheet1. Adjust the code as needed to suit.

Option Explicit

Sub flebber()
Dim arr As Variant, i As Long
With Sheets("Sheet1")
arr = .Range("A1:A" & .UsedRange.Rows.Count)
For i = 1 To UBound(arr)
    .Range("B" & i & ":E" & i).Value = Split(arr(i, 1), "-")
Next i
End With
End Sub

Hope that helps!