What is the code for this question?

A vineyard measures the amount of wine in its storage tanks in gallons, but it must ship 
the wine in barrels. There are 42 gallons in a barrel. Write the event procedure that will 
accept as input, the number of gallons in the tank, and displays using a MessageBox the 
number of barrels that can be shipped, and the number of gallons remaining after as many 
barrels as possible have been filled. Do not accept negative gallons.