function that call itself in vba -

this code got @ end of latch, easy example of subrutine changes values in global collection in recursive way, , completly funtional

public list_of_data new collection  sub main()  clearcollection list_of_data  list_of_data.add 7.5  list_of_data.add 1  recursive_function list_of_data  end sub  public sub clearcollection(parmcol collection)  set parmcol = new collection  end sub  public function recursive_function(byref list_of_data collection)  dim x1  x1 = list_of_data.item(1)  dim x2  x2 = list_of_data.item(2)  if x1 > x2  clearcollection list_of_data  list_of_data.add x1  list_of_data.add x2 + 1  call recursive_function(list_of_data)  end if  end function 

you passing argument function takes none. changing function to:

public function calculo_de_dientes_epicicloidales(byref lista_de_datos) 

will yeild result looking for.

also, instead of looping empty collection, do:

public sub clearcollection(parmcol collection)      set parmcol = new collection  end sub