I need to separate a string by , my problem is then

Mystring = " hello, word,"1,500.00",my name is"
Vector = Split(MyString, ",",-1,0)
For i = 0 to ubound(vector)
Response.Write vector(i)
Response.Write "<br>"
next

Result bad:
hello
word
1
500.00
my name is


the correct result:
hello
word
1500.00
my name is