Visual Basic - Serie fibonacci

if KieyAscii = 13 then

Accion1

else

Accion2

end if

Public Function Fibonacci(ByVal numero As Long) As Long

   Dim A As Long

   Dim B As Long

   Dim C As Long

   A = 0

   B = 1

   Do While numero > 0

      C = A + B

      A = B

      B = C

      numero = numero - 1

   Debug.Print C

   Loop

End Function

Private Sub Command1_Click()

Fibonacci (20)

End Sub

public class....

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim a As Integer, b As Integer, n As Integer

        a = 0 : b = 1

        Dim c As Integer, suma As Integer = 0

        n = CInt(InputBox("digite", "digite"))

        Dim i As Integer

        For i = 0 To n - 2

            suma = suma + b

            c = a + b

            a = b

            b = c

        Next

        TextBox1.Text = suma

    End Sub

End Class