Non so come tu abbia dichiarato la variabile
"elemento" ma sembra che sia di tipo String.. quindi non puoi usarla come indice di un vettore.
se è questo l'errore devi convertire il valore della stringa in un tipo numerico, ad esempio integer, con la funzione CInt()

codice:
elemento=text1.text
numrecord= data1.recordset.absoluteposition
nomevar(CInt(elemento))=numrecord
Prova..

Ciao!!!!