Hola:
Prueba con la función split que te devuelve un vector de "n" elementos, uno por cada separador de coma.
La función "Split" se utiliza como sigue:
The following example uses the Split function to return an array from a string. The function performs a textual comparison of the delimiter, and returns all of the substrings.
Dim MyString, MyArray
MyString = Split("VBScriptXisXfun!", "x", -1, 1)
' MyString(0) contains "VBScript".
' MyString(1) contains "is".
' MyString(2) contains "fun!".
----------------------------
the Great aVATAR!
----------------------------
[email protected] [email protected] ICQ: 28864859