te da error en esa linea porque no puedes usar el simbolo % junto con el operador =. solo funciona para la clausula like.
like
otra cosa...cuando recorras tu vector hazlo de esta forma
for i=lbound(vector) to ubound(vector)
sigun veo lo estas recorriendo mal
for i =1 to lbound(vector)
esto se traduce a
for i =1 to 0
ya que el lbound es el limite inferior de tu vector y este comienza en 0.