VBA Fibonacci Split

FibboSplit.vba

Function FIBONACCI(number)
  
  Summ = Summ Mod 9
  If Summ = 0 Then
      FIBONACCI = 9
  Else
      FIBONACCI = Summ
  End If

End Function



Function FIBBOSPLIT(number)

  Dim my_string As String
  my_string = CStr(number)
      
  Dim buff() As Integer
  ReDim buff(Len(my_string) - 1)
  
  For i = 1 To Len(my_string)
    buff(i - 1) = CInt(Mid$(my_string, i, 1))
  Next
  
  For i = 1 To Len(my_string) - 1
    For j = 1 To (UBound(buff) - LBound(buff))
      buff(j - 1) = FIBONACCI(buff(j - 1) + buff(j))
    Next
  Next
  

  FIBBOSPLIT = buff(0)

End Function