Ряд чисел Фибоначчи (visual basic)

[goshanoob]

Пасаны! Я убит в щи унылым VB! Числа Фибоначчи получаются следующим образом: первое равно 0, второе 1, каждое последующее равно сумме двух предыдущих.
Я написал функцию с рекурсией:
Function Fib(ByVal vs As Integer) As Integer
If vs = 0 Then
Fib = 0
ElseIf vs = 1 Then
Fib = 1
Else
Fib = Fib(vs - 1) + Fib(vs - 2)
End If
End Function

Dim vs As Integer
vs = Fib(InputBox("Чис"))
MsgBox(vs)

Теперь передо мной новая цель - вывести весь ряд, до введённого числа. Видимо нужно последовательно скармиливать процедуре последовательные числа, для этого я пытался запилить цикл for, но получил длинющую строку унылых чисел. Как можно решить эту проблему?

[ROMA2PVT]

Function Fib(ByVal vs As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer
a = 1
b = 1
c = 0
While c < vs
c = a + b
a = b
b = c
Wend
If c = vs Or vs = 1 Or vs = 0 Then
Fib = True
Else
Fib = False
End If
End Function

Private Sub Command1_Click()
Dim s As Integer, i As Integer
s = Text1.Text
For i = 1 To s
If Fib(i) Then
Print i
End If
Next i
End Sub

доделывайте как вам надо.

[goshanoob]

Спасибо братюнь!
Переделал вот так:
Function Fib(ByVal i As Double) As Double
If i = 0 Then
Fib = 0
ElseIf i = 1 Then
Fib = 1
Else
Fib = Fib(i - 1) + Fib(i - 2)
End If
End Function

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim vs, i As Integer

vs = InputBox("Укажите номер числа")
For i = 0 To vs - 1

TextBox1.Text = TextBox1.Text & " " & Fib(i)

Next

End Sub