Visual Basic - Recursividad

Hola que onda, saben necesito ayuda como hago una recursiva una funcion o procedimiento en Visual Basic 6.0 ok espero que me proporcionen ayuda

prueba esto, vamos a calcular la suceccion de fiabonicci
a[n]=a[n-1]+a[n-2]
a[0]=1,a[1]=1'Casos iniciales
a[2]=a[1]+a[0]=1+1=>a[2]=2
a[3]=a[2]+a[1]=2+1=>a[3]=3
a[4]=5, a[5]=8, etc

Programandolo seria:
Dim A() as Long
A(0)=1
A(1)=1

For i=2 to TuMaximo
A(i)=A(i-1)+A(i-2)
Next

Si ves para calcular el termino siguiente debes calcular todos los anteriores, por ejemplo segun lo anterior cuanto es a[8]=?, no lo puedes sabes hasta que calcules a[7] y a[6].

Suerte