Imports System

Public Module Module1

    Public Sub Main()

console.writeline ("enter your card type ")

        dim m as single

        console.WriteLine("enter your info")

        m=console.readline

        if m = ("visa") then

            console .WriteLine("you have extra 10 $ ")

        elseif m =("k-net") then 

            console.WriteLine("you have extra 5$")

        elseif m = ("payment")

            console.WriteLine("you have extra 15$")

        end if

    End Sub

End Module