Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim scoretotal as integer

        'Repeats 6 times

        for counter = 1 to 6

            console.WriteLine("enter your score")

            scoretotal = scoretotal + console.ReadLine() 'No more integers needed 

        next

​

        'Shows you total score

        console.WriteLine("your scoretotal is " & scoretotal)

    end sub

End Module

​