Imports System

​

Public Module Module1

    Public Sub Main()

            Console.WriteLine("Enter mins")

        dim Convertionmins as Double

        dim Usermins = console.ReadLine()

        If Usermins > 60 Then

            Convertionmins = ( Usermins - 60  ) * 10 

            Convertionmins = Convertionmins /  100

            console.WriteLine("You have used £"& Convertionmins & " Extra" )

        Else 

            console.WriteLine("Well done You are within You're limit")

        End If

        console.WriteLine("Enter Number of SMS messages sent")

        dim Usersms = console.ReadLine()

        dim Convertionsms as Double

        If Usersms > 12 Then

            Convertionsms = (Usersms - 12) * 5

            Convertionsms  = Convertionsms / 100 

            If Convertionsms < 1 Then 

                Convertionsms = Convertionsms * 100

            Else

                console.WriteLine("You have used these many extra SMS messages"& Convertionsms)

            End If

        console.WriteLine("You have used these many extra SMS messages"& Convertionsms)

             End If

        dim Userdata = console.ReadLine()

        dim Convertiondata as double

​

        console.Writeline("Enter Amount of Data Used")

​

        If Userdata > 1 then

            Convertiondata = (Userdata - 1)*5

            console.WriteLine("You have used"& Convertiondata)

        End If

​

​

        dim total as integer

        total = Usermins + Usersms + Userdata

        console.WriteLine("Convertionsms" & total)

​

    End Sub

End Module