Pues no te entiendo muy bien, pero si estás buscando ésto:
Cita: Dim arrObj() As String = TextBox1.Text.Split(",")
Dim sDate As String
For i As Integer = 0 To arrObj.Length - 1
Dim childObj() As String = arrObj(i).Split("|")
sDate &= FuncionFormatearFecha(childObj(1)) & ","
Next
Response.Write("Mes = " & sDate)
Salu2