select case and value(solved)

I have a button with caption 0 (zero).
Global property pValue as integer
i have the select case like bellow

[code] Case “bA5” //<–get the button caption
dim x as Integer
x=pValue //<—for debug

select case pvalue
case 3,4,5,6,7,8,9 //<--Bypass this
  txtvalue.text = ""
case 01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20 //<-- That i need
  MainWindow.main1.bA5.Caption = pValue.ToText
  if pValue > 20 then
    txtvalue.text = ""
end select[/code]

When debugging, the case 3,4,5 etc is passed as it should and go to case 01,02,03 etc.
What i want is to pass the integer 01,02 etc to caption but i get rounded number 1,2
The x=pvalue on debug show 1 or 2 but no 01 or 02.
Any help on this ? screenshot
Thank you

dim i as integer = 1 dim t as text t = i.ToText(Xojo.Core.Locale.Current, "00") msgbox t


Thank you Michel i miss the part of .totext