THIS NEEDS TO BE DONE IN VBA

Add a module and create a sub procedure named getEmailAddress. Write code accomplish the following:

1. An Input box is displayed that prompts the user to enter an email address. Be sure to use the "InputBox" function.

2. The text "Email Address:" shows in cell B2 of the active sheet.

3. The email address entered by the user into the InputBox shows in cell C2 of the active sheet

Create a subprocedure named "processEmailAddress." Modify that sub procedure to accomplish the following:

1. The text "Position of @:" shows in cell B3 of the active sheet.

2. The ordinal position of the "@" symbol is shown in cell C3. (If the user entered admin@admin.com, cell C3 should show "6" (without the quotes)

3. The text "User Name:" shows in cell B4 of the active sheet.

4. The text to the left of the "@" symbol is shown in cell C4. (If the user entered admin@admin.com, cell C4 should show "admin" (without the quotes)

5. The text "Host Name:" shows in cell B5 of the active sheet.

6. The text to the right of the "@" symbol is shown in cell C5. (for this you will want to use the "Mid" function) (If the user entered admin@admin.com, cell C5 should show "admin.com" (without the quotes)