Imports System

Public Module Module1

    Public Sub Main()

        Dim AScore, BScore As Integer

        Dim point As String

        Do

            Console.Write("(" & AScore & "-" & BScore & ") Who won? A or B :")

            point = Console.ReadLine()

            If point = "A" Then

                AScore = AScore + 1

            End If

            If point = "B" Then

                BScore = BScore + 1

            End if

        Loop until (AScore >= 7 And AScore - BScore > 1) Or (BScore >= 7 And BScore - AScore > 1)

        If AScore > BScore Then

            Console.WriteLine("A wins " & AScore & "-" & BScore)

        Else

            Console.WriteLine("B wins " & BScore & "-" & AScore)

        End If

        Console.ReadLine()

    End Sub

End Module