Developing Fibonacci series in VB

Question

I am trying to write a code for Fibonacci series in VB, but some of the values in my series are incorrect. Can somebody help me with the code?

Below is what I have so far.

Private Function FibNumber(number As Integer) As Integer

If (number > 2) Then
    FibNumber = (FibNumber(number - 2) + FibNumber(number - 1))
Else
    FibNumber = 1
End If

End Function

Private Sub command1_click()
Dim x As Integer
x = Text1.Text
Call FibNumber(number)
End Sub

Answer 1

Well, I did a quick search and I came up with the following in the first couple of results:

Private Function FibNumber(number As Integer) As Integer

If (number > 2) Then
    FibNumber = (FibNumber(number - 2) + FibNumber(number - 1)) 
Else
    FibNumber = 1
End If

End Function