Problem: Using VBA create a subroutine to solve the following problemAn admission charge for Caribbean Cinema Theater varies according to the age of the person. Develop a solution to print the ticketcharge given the age of the person.The charges are as follows:a$.$ Over $55$: $$10\mathrm{.}00$b$.21-54$: $$15\mathrm{.}00.13-20$: $$10\mathrm{.}00$d$.3-12$: $$5\mathrm{.}00$e$.$ Under $3$: Free