Imports System

Public Module Module1

    Public Sub Main()

        Dim g1 as double

        Console.WriteLine("Ingrese la cantidad de su compra: ")

        g1 = Console.ReadLine()

        If g1 < 30 then

            Console.WriteLine("Compra más o te cobraremos los abusivos 30 euros de gastos de envío")

        elseif 31 < g1 < 90 then

            Console.WriteLine("¡¡¡Con solo 33.50€ más podrás tener gastos de envío gratis!!!")

        elseif 91 < g1

            Console.WriteLine("Sí sí sí! Gastos de envío incluidos ¡Vuelve pronto!")

        End if 

    End Sub

End Module