Imports System

Public Module Module1

    Public Sub Main()

        Dim miles, kilometres  As Double 

        Console.Writeline("Enter distance in miles")

        miles = Console.ReadLine()

        kilometres = miles * 1.61

        Console.WriteLine("The value in kilometres is" & kilometres)

    End Sub

End Module