Commission Workbook Showing January Worksheet (Before)Finished worksheet (After)Pseudocode for the Commission Workbook’s Open Event Procedure (10 Marks)Declare two string variables strName and strRate and one WorkSheet object variable wksJanuary.Use the Set statement to point the worksheet object variable to the January worksheet in this workbook. Use the InputBox function to prompt the user for his/her name. Store the user’s response in the string variable called strName.Use the InputBox function to prompt the user for the commission rate as a whole number. Store the user’s response in the string variable called strRate.Convert the rate stored in the strRate variable to its decimal equivalent by converting to a number using the Val function then dividing by 100. Then assign the result to the cell B1 in the January worksheet.Concatenate the string literal constant “Prepared By ” to the name stored in the strName variable and assign the result to the cell A19 in the January worksheet.

Here is the pseudocode for the Commission Workbook’s Open Event Procedure:

1. Declare two string variables strName and strRate and one WorkSheet object variable wksJanuary.

Dim strName As String
Dim strRate As String
Dim wksJanuary As Worksheet

2. Use the Set statement to point the worksheet object variable to the January worksheet in this workbook.

Set wksJanuary = ThisWorkbook.Sheets("January")

3. Use the InputBox function to prompt the user for his/her name. Store the user’s response in the string variable called strName.

strName = InputBox("Please enter your name")

4. Use the InputBox function to prompt the user for the commission rate as a whole number. Store the user’s response in the string variable called strRate.

strRate = InputBox("Please enter the commission rate as a whole number")

5. Convert the rate stored in the strRate variable to its decimal equivalent by converting to a number using the Val function then dividing by 100. Then assign the result to the cell B1 in the January worksheet.

wksJanuary.Range("B1").Value = Val(strRate) / 100

6. Concatenate the string literal constant “Prepared By ” to the name stored in the strName variable and assign the result to the cell A19 in the January worksheet.

wksJanuary.Range("A19").Value = "Prepared By " & strName

This pseudocode assumes that the user will enter valid inputs when prompted. In a real-world scenario, you would want to add error checking to ensure that the inputs are valid before proceeding.