Constante de cadena sin terminar

[rodrigot71]

Amigos... Quisiera por favor si me ayudan con la sintaxis.
Estoy necesitando saber el numero de palabras que me devuelve un campo de un formulario, y utilizo un codigo que encontré en la red, y que funciona bien, pero cuando lo adapto a mi necesidad me da un error de "Constante de cadena sin terminar" en la linea 3 que transcribo mas abajo (texto = "<%= Barras_Documentacion.Barras_Aprobadas.ViewValue %>")

El codigo es:

<%
dim texto
texto = "<%= Barras_Documentacion.Barras_Aprobadas.ViewValue %>"
texto = Trim(texto)

'si existen espacios dobles en la cadena, los eliminamos con este bucle
Do While InStr(1, texto, " ") > 0
texto = Replace(texto, " ", " ")
Loop

'separamos la palabra donde encontramos un espacio
'y hacemos un vector con sus palabras
Dim array_texto
array_texto = split(texto, " ")

'mostramos el resultado, sumando uno mas ultimo índice del vector
'esto es porque los vectores empiezan con el 0.
response.write UBound(array_texto)+1
%>

Saludos...