Function GroupNumber(ByVal Str As String, ByVal Delimiter As String) As String
Dim SplitArr As Variant, NumberArr() As Boolean, i As Long, Number As Long, IsSerial As Boolean, Start As Long
ReDim NumberArr(-1 To 0)
SplitArr = Split(Str, Delimiter)
For i = 0 To UBound(SplitArr, 1)
Number = CLng(SplitArr(i))
If Number + 1 > UBound(NumberArr, 1) Then ReDim Preserve NumberArr(-1 To Number + 1)
NumberArr(Number) = True
Next
For i = 0 To UBound(NumberArr, 1)
If NumberArr(i) Then
If Not NumberArr(i - 1) Then
Start = i
End If
ElseIf NumberArr(i - 1) Then
GroupNumber = GroupNumber & " " & Start & IIf(i - 1 > Start, "-" & (i - 1), "")
End If
Next
GroupNumber = Mid(GroupNumber, 2)
If Delimiter <> " " Then GroupNumber = Replace(GroupNumber, " ", Delimiter & " ")
End Function
