Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        PrintEvenNumbers()

    End Sub

    public Sub PrintEvenNumbers

        Dim i as Integer=-10

        While (i<10)

            If (i mod 2)=0 Then

            Console.WriteLine(i)

            else

                Console.WriteLine("a")

            End If

            i=i+1

        End while

    End Sub

End Module