Array Dinamicos como Application

[dienomb]

Estoy intentando que cada vez que entre un usuario, es decir que se active, se ponga su nombre en un array dinamico.
Consigo ke se guarde el valor de una variable normal pero el del array no.
Alguien podria echarme una mano??

Esto es lo que tengo:

dim TablaUsuarios()
dim usu
dim i
usu=trim(request.form("Usuario"))
Application("i")=Application("i")+1
redim TablaUsuarios(Application("i"))
TablaUsuarios(Application("i"))=usu
Application("tabla")=TablaUsuarios