Imports System

Public Module Module1

    Public Sub Main()

        Dim Name As String

        Dim NumberOfWins As Integer

        Dim PenaltyWeight As Integer

​

        Console.WriteLine("Input the name of horse")

        Name = Console.ReadLine

        Console.WriteLine("Input the number of previous wins")

        NumberOfWins = Console.ReadLine

​

        If NumberOfWins = 0 Then

            PenaltyWeight = 0

        End If

​

        If NumberOfWins = 1 Or NumberOfWins = 2 Then

            PenaltyWeight = 4

        End If

​

        If NumberOfWins > 2 Then

            PenaltyWeight = 8

        End If

​

        Console.WriteLine(Name & ", " & PenaltyWeight)

        Console.ReadLine()

    End Sub

End Module