Imports System

Public Module Module1

    Public Sub Main()

        Dim Even as integer

        Dim Total as integer

        Dim Num as integer

        Dim Average as integer

        Dim Count as integer

        Even = 0

        Total = 0

    For Count = 1 to 10

        Console.WriteLine("Please enter a number " & Count & ":")

        Num = Console.ReadLine()

        IF Num mod 2 = 0 THEN

            Even = Even + 1

            Total = Total + Num

        End IF

    Next 

    Count = Count - 1

    Average = Total / Even

    Console.WriteLine("The average of your " & Even & " even numbers is : " & Average)

    End Sub

End Module