Function ExpandListA(ByVal Src As String, _
                      Optional GrSep$ = ",", _
                      Optional InGrSep$ = "-", _
                      Optional DelChar1$ = " ", _
                      Optional DelChar2$ = " ", _
                      Optional DelChar3$ = " ", _
                      Optional outSep$ = "; ") As String
     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