VbNet 1----Programacion en Consola----Condicion If

hallar el valor total de la venta de boletos de viaje segun su destino y la cantidad de boletos a comprar. si el destino es "Usa" el boleto costará  1000 dolares y si la cantidad de boletos a comprar es mayor o igual a 5 se la hara un descuento del 4 %, si el destino es "España" el boleto costará 1200 y si la cantidad de boletos es mayor o igual  a 2 se la hará un descuento del 3%, si el destino es "Italia" el boleto costará 1100 dolares y si la cantidad de boletos es mayor o igual a 7 se la hara un descuento del 3.5%, si el destino es japon el boleto costará 2000 dolares y si la cantidad de boletos es mayor a 5 se le hara un descuento del 3.3%

Module Module1
    Sub Main()
        Dim destino As String
        Dim can, des, imp, ct As Double
        Console.Write("ingrese destino :")
        destino = Console.ReadLine
        Console.Write("ingrese cantidad :")
        can = Console.ReadLine
        If destino = "usa" Then
            imp = 1000 * can
            If can >= 5 Then
                des = imp * 0.04
            Else
                des = 0
            End If
        End If
        If destino = "españa" Then
            imp = 1200 * can
            If can >= 2 Then
                des = imp * 0.03
            Else
                des = 0
            End If
        End If
        If destino = "italia" Then
            imp = 1100 * can
            If can >= 7 Then
                des = imp * 0.035
            Else
                des = 0
            End If
        End If
        If destino = "japon" Then
            imp = 2000 * can
            If can > 5 Then
                des = imp * 0.033
            Else
                des = 0
            End If
        End If
        ct = imp - des
        Console.WriteLine("el importe es :" & imp)
        Console.WriteLine("el descuento es :" & des)
        Console.Write("el costo total es :" & ct)
        Console.Read()
    End Sub
End Module