Pelo erro, o array não esta com o índice marcado (no caso 1).

Recomendo que você aprenda a usar o Debugger do Visual Basic afim de achar o problema...

Segue um link que ensina a utiliza-lo

http://www.juliobattisti.com.br/tutoriais/mauricioborges/debug001.asp

No link, ele ensina na versão 2005 com linguagem asp, mais a lógica é a mesma...

heheheh vlws , eu tirei esse code do lothusbot e passei pra vb