Private Sub PrintFibonacciReeks(ByVal i As Integer)

    Console.Write("Fibonnaci Reeks: ")
    Dim first As Integer = 0
    Dim second As Integer = 1

    If i = 0 Or i = 1 Then
        Console.Write(first & " ")
    Else
        Console.Write(second & " ")
    End If

    Dim counter As Integer
    For counter = 2 To i Step 1
        Dim current As Integer = first + second
        Console.Write(current & " ")
        first = second
        second = current
    Next
    Console.WriteLine()

End Sub

Private Sub PrintFibonacciReeks(ByVal i As Integer)
 
    Console.Write("Fibonnaci Reeks: ")
    Dim first As Integer = 0
    Dim second As Integer = 1
 
    If i = 0 Or i = 1 Then
        Console.Write(first & " ")
    Else
        Console.Write(second & " ")
    End If
 
    Dim counter As Integer
    For counter = 2 To i Step 1
        Dim current As Integer = first + second
        Console.Write(current & " ")
        first = second
        second = current
    Next
    Console.WriteLine()
 
End Sub