Value of Public Constant From Concatenate strings

[exceere]

Hi,

i have these public constants:

Public Const Sh10PegRows As Integer = 100
Public Const Sh11PegRows As Integer = 200

and this sub:

Sub ShowPage(P1 As Integer, P2 As Integer)

    MsgBox ("Sh" & P1 & "PegRows")
    MsgBox ("Sh" & P2 & "PegRows")

End Sub

when i call ShowPage sub by

Sub Test()

    Call ShowPage(10, 11)

End Sub

i Get: (Sh10PegRows , Sh11PegRows).

How can I get the value of constants (100, 200) instead of the strings?