Extraer texto encerrado entre indentificadores

[virla]

estoy realizando esta prueba pero no sale como espero, alguien puede decirme el porque?

Código:

<%
dim MyTexto

function Con_BBcode(raw_txt,BB_Code)
 temp = ""
 temp = split(raw_txt,"]")
 if isarray(temp) then
  'response.Write ubound(temp)&"<br />"
  con_bbcode=left(temp(1),(len(temp(1))-len(bb_code))-1)
 end if
end function
MyTexto="[volanta]Novedades[/volanta][titulo]Equipos ultraportátiles: Sony VAIO TZ-31WN[/titulo][copete]Esta máquina de la serie TZ es de auténtico lujo tanto a nivel estético como tecnológico, pues es impresionante todo lo que Sony ha sido capaz de reunir en el interior de un chasis de dimensiones realmente mínimas y sólo 1,2 kilos de peso.[/copete]"
%>
<table width="400" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=con_bbcode(MyTexto,"[volanta]")%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[titulo]")%></td>
  </tr>
  <tr>
    <td><%=con_bbcode(MyTexto,"[copete]")%></td>
  </tr>
</table>

gracias