ASP - Error con mid

Hola a todos:

Tengo un problema al utilizar la funcion de string mid en asp, yo la he ocupado antes pero ahora me marca el siguiente error:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Mid'

No creo que tenga problemas con el codigo , pero aqui esta..

Function Extraer(Cadena)
dim total

total=0

for i=0 to len(cadena)

if mid(cadena,i,1)="," then
total=total+1
end if

next

Extraer=total
end Function

lo que no me reconoce es la i que esta dentro del mid, porque si pongo un numero pasa.
porfis si alguien sabe que pasa respondan porfis..

debe ser asi
for i=1 to len(cadena)
desd 1 hasta la longitud de la cadena

para q luego al utilizarmid no t de error.
ya q no exist psosción cero (0)

Espro t sirva.

Hasta Pronto.

Siiiiiii!, eso era, gracias... era un tontera pero pucha que me cabecie.
te pasaste Santos :-)