Imports System

Public Module SectionIf

    Public Sub Main()

        Dim PlayerName As String

        Dim Shots As Integer

        Dim Bonus As Single = 0

        Console.WriteLine("Input player name")

        PlayerName = Console.ReadLine()

        Console.WriteLine("Input number of shots")

​

        Shots = Console.ReadLine()

​

​

        If Shots > 50 Then

            Bonus = 10000

​

        Else

            Bonus = 1000

        End If

​

        Console.WriteLine(PlayerName & " has a bonus of " & Bonus)

​

        Console.ReadLine()

        main()

    End Sub

End Module