Imports System      

Public Module Module1

    Public Sub Main()

        Dim minutes as decimal 

        Dim texts as integer 

        DIm monthlyCharge as Integer = 1000

        Console.WriteLine("Please enter number of minutes")

        minutes = COnsole.ReadLine()

        Console.WriteLine("Please enter number of texts")

        texts = Console.ReadLine()

        Dim minuteCharge as Integer = minutes*10

        DIm textCharge as Integer = texts*5

        Console.WriteLine("Your charge for minutes is "  & minuteCharge & "p")

        Console.WriteLine("Your charge for texts is " & textCharge & "p")

        COnsole.WriteLine("Your monthly tarriff in pennies is 1000p " & "Your total charge is " & monthlyCharge+minutecharge+textCharge & "p")

    End Sub

End Module