Imports System

Public Module Module1

    Public Sub Main()

        Dim miles, km As Double

        Console.WriteLine("Enter distance in miles")

        miles = Console.ReadLine()

        km = miles * 1.61

        console.WriteLine("The value in km is"& km)

    End Sub

End Module