Imports System
Public Module Module1
Public Sub Main()
Dim km, miles as decimal
Console.WriteLine("Unit Converter v1.0")
Console.WriteLine("---------------------")
Console.Write("Please enter distance in km: ")
Km = Console.Readline()
Miles = km / 1.60934
Console.WriteLine(km & "km is approximately " & miles & " miles. ")
End Sub
End Module