Dim a As Integer

    a = 1

    b = 1

    Console.WriteLine("{0}", a)

    While b < 100

      Console.WriteLine(b)

      b = b + a

      a = b - a

    End While

    Console.ReadLine()