Imports System

Public Module Module1

    Public Sub Main()

        dim distance, time, speed as double

        Console.WriteLine("enter distance between sensors in kilometers")

        distance = console.ReadLine()

        console.WriteLine("Now please enter the time it took for you to reach the 2nd sensor in seconds.")

        time = console.readline

        Speed = (distance/time*1000)

        console.WriteLine(speed)

        Console.WriteLine("In kph")

        End Sub

    End Module 

​