When Sub Main below is executed, what will be displayed by the message box? Sub Main() Dim X As Short = 2 Dim Y As Short = 3 Dim Z As Integer Z = Expon(X,Y) MsgBox (Z) End Sub Function Expon(ByVal P As Short, ByVal Q As Short) As Integer Return Q^P End Sub