Imports System

Public Module Module1

    Public Sub Main()

        Dim speed As Integer

        Dim time As Integer

        Dim distance As Integer

​

​

​

​

​

​

​

        Console.WriteLine("Lets calculate the distance you traveled today!")

        Console.WriteLine("Please enter your speed in MPH:")

        speed = Console.ReadLine

        Console.WriteLine("Please enter the time you traveled in hours: ")

        time = Console.ReadLine

​

​

        distance = speed * time

​

        Console.WriteLine("you traveled a total of " & distance & " miles today")

​

        If distance >= 40 Then

            Console.WriteLine("thats an above average distance you've traveled today! ")

        Else

            Console.WriteLine(" thats close to the the estimated daily travel distance!")

        End If

​

        Console.ReadLine()

​

    End Sub

End Module