I am writting a recursive program in Visaul basic that will work out the fibonacci series. I have written some code, but it does not work. Can anyone tell me what is wrong with it.

Private Sub CmdFindNumber_Click()
Dim number As Integer
Dim answer As Integer

number = InputBox("Please enter a number to find", "Find Fib Number")
LblNumber.Caption = number
answer = FibNumber(number)
LblAnswer.Caption = answer

End Sub

Private Function FibNumber(number As Integer) As Integer

If (number > 2) Then
(FibNumber(number - 2) + FibNumber(number - 1))'should call itself
End If

End Function

many thanks in advance