sub main()
    msgbox(DataArrival(val(inputbox("Ingresa un Index X entre 0 y 10","","0"))))
end sub
 
public function DataArrival() as string()
   dim tmpArray() as string,i as integer
   redim tmparray(10)
'   tmparray(0) = "a"
'   tmparray(1) = "aa"
'   tmparray(2) = "aaa"
'   tmparray(3) = "aaaa"
'   tmparray(4) = "aaaaa"
'   tmparray(5) = "aaaaaa"
'   tmparray(6) = "aaaaaaa"
'   tmparray(7) = "aaaaaaaa"
'   tmparray(8) = "aaaaaaaaa"
'   tmparray(9) = "aaaaaaaaaa"
'   tmparray(10) = "aaaaaaaaaaa"
    '    //  Es lo mismo que arriva solo que simplificado
    for i = lbound(tmparray) to ubound(tmparray)
        tmparray=string(i+1,"a")
    next
 
    DataArrival=tmparray
end function