Ayuda en VB6

[RedMew]

Exacto no es algo tan sencillo como eso, sino que x ya tiene un rango de valores que son del 1 al 5, lo que quiero es darle esos valores a las funciones mediante un for, y guardar esos resultados en un arreglo, lo intente hacer pero solo me acepta un numero que en este caso vendria siendo un 1 y solo me lo toma una vez, es decir toma el uno y me imprime un uno szin realizarme ninguna operacion, si pido el valor si funciona pero debe ser con ese rango del 1 al 5 sin pedirlo
pd: no se como editar el titulo