Imports System

Public Module Module1

    Public Sub Main()

        'Menu

        Dim opcion as integer

        Console.WriteLine("Conversiones")

        Console.WriteLine("1. Conversiones de longitud 2.Conversiones de capacidad 3.Conversiones de peso")

        opcion = Console.ReadLine()

        'Case

        Select (Opcion)

        Case 1 

            Console.WriteLine("Conversiones de longitud")

        Case 2

            Console.WriteLine("Conversiones de capacidad")

        Case 3

            Console.WriteLine("Conversiones de peso")

        Case else 

            Console.WriteLine("La opcion ingresada no es valida")

        End select

    End Sub

    Private Sub ("Conversiones de longitud")

        'procedimiento de Conversiones

        dim ft,y,p as double

        dim opc as integer

        Console.WriteLine("El resultado es")

        opc= Console.ReadLine()

        iF opc

        End if

    End sub

End Module