ASP - por que el mid esta mal

esta instruccion funciono varias veces de repente me comenzo a marcar error, que esta mal?

string2 = "PROFTEC_SEXO = 0"
mypos = InStr(1,vCadena,string2,0)
STRING3 = ""
STRING3 = mid(vCadena,1,[mypos]-1)
mypos = len(vCadena)
string3 = string3 + "PROFTEC_SEXO <> 0"
string4 = mid(vCadena,389,mypos)
string3 = string3 + string4
vCadena = string3

no entiendo bien para que sirve esta funcion, cual es la idea.

preguntas que tiene vCadena¿?
que es lo que realmente devuelve¿?

se un poco mas explicito en lo que pides, ya que de esta forma te puedo entregar una solucion mas precisa del problemas.

esta mal el istr ese no te entrega el largo del archivo
es el len