En enkel funktion som ändrar värdet mellan två index ur en kommaseparerad sträng.
function switchPlaces(iSwFrom,iSwTo,str)
dim tmpArr, tmpVar, i
tmpArr = split(str,",")
tmpVar = tmpArr(ISwTo)
tmpArr(iSwTo) = tmpArr(iSwFrom)
tmpArr(iSwFrom) = tmpVar
tmpVar = ""
for i = lbound(tmpArr) to ubound(tmpArr)
tmpVar = tmpVar & tmpArr(i) & ", "
next
switchPlaces = left(tmpVar, len(tmpVar)-2)
end function