Imports System

Public Module Module1

    Public Sub Main()

        dim Paymenttype as string

        console.WriteLine("please enter the payment type")

        paymenttype= console.ReadLine()

        If paymenttype = "visa" then

            console.WriteLine("extra charges for the visa:10$")

        ElseIf paymenttype= "k-net" Then

            console.WriteLine("extra charges for the k-net:5$")

        ElseIf paymenttype ="payPal" then

            Console.WriteLine("extra charges for the payPal:15$")

        Else

            console.Write("the payment type you choose is invalid:{0}",paymenttype)

        End If

    End Sub

End Module