' *******************************************
' проблему разделения на "название" - "цифры" не рассматриваем
' *******************************************
' (запись):=(префикс)(один или несколько пробелов)(суффикс)
' (суффикс):=(элемент)[(разделитель_элементов)(элемент)]
' (элемент):=(число)|(начало_диапазона)(разделитель_диапазона)(конец_диапазона)
' (начало_диапазона),(конец_диапазона):=(число)
' (разделитель_элементов),(разделитель_диапазона):={разделитель элементов списка, разделитель чисел в диапазоне 
'                                                  (!) не пробел, не числовой символ}
Sub split_str(sIncome$,Optional sDelimElem$=",", Optional sDelimRng$="-")
Dim s$, sPrefix$, sSuffix$
Dim i%, ii%, ij%, lngk&
Dim arrSuffix

s=Trim(sIncome)
i=InStr( 1 ,s," ")
sPrefix=Left(s, i- 1 )
sSuffix=Replace(Mid(s, i+ 1 ), " ", "")

arrSuffix=Split(sSuffix, sDelimElem)
For i= LBound(arrSuffix) to UBound(arrSuffix)
  ii=InStr( 1 ,arrSuffix(i), sDelimRng)
  If ii= 0  Then
    Debug.Print sPrefix & arrSuffix(i)
  Else
    For lngk=CLng(Left(arrSuffix(i)), ii- 1 ) To CLng(Mid(arrSuffix(i)), ii+ 1 ))
           Debug.Print sPrefix & CStr(lngk)
    Next lngk
  End If
Next i
Erase arrSuffix
End Sub