Imports System

Public Module Module1

    Public Sub Main()

        Dim centimetros As double 

        Const polegadas As Double = 0.39987

        centimetros = 150

        Console.WriteLine(centimetros * polegadas)

        Console.Readline()

    End Sub

End Module