Imports System

Public Module Module1

    Public Sub Main()

        Dim DinM, TinS as integer

        Dim speedlimit as string

        Dim Km, Hours as integer

        Dim speed 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 & " per hour")

        If speed > = 50

            then console.Writeline("You are ")

        End if

    End Sub

End Module