VBA - 如何获取工作表代码名称索引

I am using the following to get the sheet codename, but I would like to get just the index of that codename. Lets say the codename is "Sheet4" I would like to get just the number 4. If it's "Sheet12" I would like just the 12.I am using the following to get the sheet coden