Imports System

Public Module Module1

    Public Sub Main()

        Dim DinM, TinS, Km, Hours, speed as decimal

        Dim speedlimit as string

        Console.WriteLine("Please enter the distance in metres")

        DinM = Console.readline()

        Console.Writeline("Now enter time in seconds")

        TinS = Console.Readline()

        Km = DinM / 1000

        Hours = TinS / 3600

        speedlimit = "50Km/h"

        speed = Km / Hours

        Console.Writeline("You were going " & speed & " kilometers per hour")

        If speed > = 55 then

            console.Writeline("You are to far over the speed limit")

        elseif speed > 50 then

            Console.writeline("You are over the speed limit")

        elseif speed = 50 then

            Console.writeline("You are exactly on the speed limit")

        elseif speed < 50 then

            Console.WriteLine("You are within the speed limit")

        End if

    End Sub

End Module