Dim max, punten, procent As Integer
        Console.Write("Wat is u maximum te behalen score? ")
        max = CInt(Console.ReadLine())
        Console.Write("Wat is u behaalde score? ")
        punten = CInt(Console.ReadLine())
        If punten > max Then
            Console.WriteLine("Uw punten zijn groter dan uw maximum!")
        ElseIf punten < 0 Then
            Console.WriteLine("Uw punten moeten groter of gelijk zijn aan 0!")
        Else
            procent = punten / max * 100
            Console.WriteLine("U heeft " & procent & "% behaald!")
        End If
        Console.ReadLine()