Imports System

Public Module Module1

    Public Sub Main()

        'Works out whether a candidate passed or failed

        Dim score As Integer

        Console.WriteLine("Enter the test score 1-100: ")

        score = Console.ReadLine

        'Branch depending on the value of the variable

        If score > 40 Then

        Console.WriteLine("You passed")

        Else

        Console.WriteLine("You failed")

        End if

    End Sub

End Module