Imports System

Public Module Module1

    Public Sub Main()

        Dim payment as string

​

console.WriteLine("what is your paymnet type?")

​

payment = console.ReadLine()

​

if payment ="Visa" then

​

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

​

elseif payment = "K-net" then

​

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

​

elseif payment = "payPal" then

​

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

​

else

​

console.WriteLine("you didn't choose a correct payment")

​

end if

    End Sub

End Module