fibonacci sequence to 40 iterations

Module Module1
    Sub Main()
        Dim num1 As Integer
        Dim num2 As Integer
        Dim num3 As Integer
        num1 = 0
        num2 = 1
        For i = 0 To 40
            num3 = num1 + num2
            Console.WriteLine(i & ") " & num1 & " + " & num2 & " = " & num3)
            num1 = num2
            num2 = num3
        Next

        Console.ReadLine()
    End Sub
End Module