//**************************************
    //     
    // Name: Fibonacci Function
    // Description:Calculates Fibonacci numb
    //     ers to unlimited precision in only 25 li
    //     nes of code. Pretty fast also. Calculate
    //     F(100,000) in 2 seconds on a P4-2.66
    // By: Paddy Pasqualmie
    //
    // Inputs:int32
    //
    // Returns:string
    //
    //This code is copyrighted and has    // limited warranties.Please see http://
    //     www.Planet-Source-Code.com/vb/scripts/Sh
    //     owCode.asp?txtCodeId=2010&lngWId;=10    //for details.    //**************************************
    //     
    
    Shared Function Fibonacci(ByVal n As Int32) As String
    Dim x((Int(n * 0.208988) \ 9) + 2) As Int32 : x(1) = 1
    Dim y((Int(n * 0.208988) \ 9) + 2) As Int32 : y(1) = 1
    Dim z((Int(n * 0.208988) \ 9) + 2) As Int32 : z(1) = 0
    Dim Result As String
    Dim MaxCount As Int32
    For iLoop As Int32 = 1 To n - 2
    MaxCount = (Int(iLoop * 0.208988) \ 9) + 2
    y.CopyTo(z, 0) : x.CopyTo(y, 0)
    For Count As Int32 = 1 To MaxCount - 1
    x(Count) = y(Count) + z(Count)
    Next
    For Count As Int32 = 1 To MaxCount - 1
    If x(Count) >= 1000000000 Then
    x(Count) = x(Count) - 1000000000
    x(Count + 1) = x(Count + 1) + 1
    End If
    Next
    Next
    For Count As Int32 = x.Length - 1 To 1 Step -1
    Result = Result & x(Count).ToString.PadLeft(9, "0")
    Next
    Result = Result.TrimStart("0")
    Return Result
    End Function