Imports System

Public Module Module1

    Public Sub Main()

        Dim Total = 0

        Dim Count as integer

        Dim Num as integer 

    For Count = 1 to 5

        Console.WriteLine("Please Enter a number")

        Num = console.ReadLine()

        IF Num mod 7 = 0 THEN

            Total = Total + 1

        END IF

    Next

End Module

End Sub

    Console.WriteLine("There is " & Total & " multiples of 7")

​