Imports System

Public Module Module1

    Public Sub Main()

        dim m as single

        console.writeline("enter your payment type")

        m= console.Readline()

        If m=Visa then

            console.WriteLine("You have to pay 10$")

        Elseif m=K-net then

            console.WriteLine("You have to pay 5$")

        Elseif m=Paypal then

            console.WriteLine("You have to pay 15$")

        End If

    End Sub

End Module