Probably this is too late for you... I need to use this for a similar project and I found your script. Here is where you need to change to make it work:

intPosEnd = InStr(intPos, strTemp, ",")

replace with

intPosEnd = InStr(intPos + 1, strTemp, ",")




EggHeadCafe.com - .NET Developer Portal of Choice
http://www.eggheadcafe.com