Работа с текстом

Sub lkbvdjfkg()
   Dim st, s As String, i As Long, j As Long, a() As String,  k As Long
   
   s = "1-4,6,8-10"
   
   st = Split(s, ",")
   For i = 0 To UBound(st)
      If st(i) Like "*#-#*" Then
          For j = Val(Split(st(i), "-")(0)) To Val(Split(st(i), "-")(1))
              k = k + 1
              ReDim Preserve a(1 To k)
              a(k) = j
          Next j
      Else
           k = k + 1
           ReDim Preserve a(1 To k)
           a(k) = st(i)
      End If
    Next i
 
    MsgBox Join(a, ",")
 
End Sub

Function ExpandListA(ByVal Src As String, _
                     Optional GrSep$ = ",", _
                     Optional InGrSep$ = "-", _
                     Optional DelChar1$ = " ", _
                     Optional DelChar2$ = " ", _
                     Optional DelChar3$ = " ", _
                     Optional outSep$ = "; ") As String
'planetaexcel.ru/forum.php?thread_id=19537
'извлекёт из
'гр. 4-16, гр. 25,гр.33,гр 35- 40
'строку
'4,5,6,7,8,9,10,11,12,13,14,15,16,25,33,35,36,37,38,39,40
    Dim elem, aNums, j As Long, n1 As Long, n2 As Long
 
    Src = Replace(Src, DelChar1$, "")
    Src = Replace(Src, DelChar2$, "")
    Src = Replace(Src, DelChar3$, "")
    If Src = "" Then Exit Function
    For Each elem In Split(Src, GrSep)
        aNums = Split(elem, InGrSep)
        n1 = aNums(0)
        n2 = aNums(UBound(aNums))
        For j = n1 To n2 Step IIf(n1 < n2, 1, -1)
            ExpandListA = ExpandListA & outSep & j
        Next
    Next
    ExpandListA = Mid(ExpandListA, Len(outSep) + 1)
End Function

=ExpandListA("1-4,6,8-10";;;;;;",")

Sub tt()
    Dim s$
    s = "1-4,6,8-10"
    MsgBox s
    s = ExpandListA(s, , , , , , ",")
    MsgBox s
End Sub