como manejar cadenas con split

[sofia2]

Hola, estoy tratando de separar una variable q contiene el siguiente formato:
C,P.D ,la cual se llena por un arreglo al marcar los checks box de mi pagina.
Necesito guardarlo en la base de datos con el siguiente formato: CPD
es decir sin coma entre los valores, entonces estaba separando la cadena asi:

tipos = split("tipoForm",",") donde tipoForm = C,P,D

Response.Write("parteUno: " & tipos(0)&"<br>")
Response.Write("parteDos: " & tipos(1)&"<br>")

pero me da el siguiente error:
Subscript out of range: '[number: 1]' en la ultima linea, no se que puede ser, ya lo he revisado varias veces???
Hay otra forma de eliminarle esas comas al momento de guardarlo en la BD, espero puedan ayudarme