Basic Loop Trouble - need to convert active sheet to integer

I'm new to usign loops and I've run into a bit of trouble, I need to use a loop to add a value of 1 to the workseets name on each repetition. The worksheets are all named with single numbers but I'm not sure how to convet the active sheet reference into an integer t hat I can use to add a value to. I also tried

Dim Order As String, i As Integer
Order = ActiveSheet.Name

Dim OrderNum As Integer
OrderNum = Order


For i = 1 To 21


Code Goes here

    
Sheets(OrderNum + 1).Activate

Next i

I also tried

Dim Order A, i As Integer
Order = ActiveSheet.Name


For i = 1 To 21


Code Goes here

    
Sheets(Order + 1).Activate

Next i

I also tried

Dim Order as String = ActiveSheet.Name

Dim OrderNumber As Integer = Convert.ToInt32(Order)

Any assistance greatly appreciated

Thanks