REM ***** BASIC ***** Function ExpandRange(s) s=Trim(s) a=Split(s,"-") if LBound(a)<>UBound(a) then s=a(0) for j=CInt(a(0))+1 to CInt(a(1)) s=s+","+CStr(j) next j end if ExpandRange=s End Function Function ExpandRanges(s) a=Split(s,",") for i=LBound(a) to UBound(a) a(i)=ExpandRange(a(i)) next i ExpandRanges=Join(a,",") End Function