Imports System

Public Module Module1

    Public Sub Main()

        dim intYards1 as integer

        dim intYards2 as integer

        dim strName as string

        dim inttotalyards as integer

        Console.WriteLine("This is a virtual football game")

        Console.WriteLine("name the player")

        strName = console.ReadLine()

        console.writeline ("How many yards did they go the first")

        intyards1 = console.readline ()

        console.writeline ("How many yards did they go the second time")

        intyards2 = console.readline ()

        intyards1 +intyards2 = inttotalyards

        console.WriteLine(inttotalyards)

    End Sub

End Module