oRE.Pattern = "(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)\s*,\s*(\d+)">
>clear >lcstring = "RGB(123, 124, 125, 126, 127, 128)" >? lcstring >oRE = CREATEOBJECT("VBScript.RegExp") >oRE.Pattern = "(\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)\, (\d+)" >? oRE.Replace(lcstring, "$4, $5, $6, $1, $2, $3") >