#DefineSubRoutine udsListToVTArray (strList, strDelimiter)
Return ObjectType ("ARRAY", Arrayize (strList, strDelimiter))
#EndSubRoutine


strListColors = "red,green,blue"
arrColors = udsListToVTArray (strListColors, ",")

ForEach strColor In arrColors
   Pause ("Color Collection", strColor)
Next

Exit