Add +1 to a string var

[sal21]

I have this myvar="tot01" (as string) i need to add +1 to the last two character and return a new myvar="tot02?
Tks.

NOTE:
the adding value are the ordinal number of the months.
Naturally if i have: myvar="tot12" and add +1 the new result is myvar="tot01"

[Rudi]

Could you not use the current date and append?

Code: Select all

Dim myVar As String
myVar = "tot" & Month(Date)
MsgBox myVar

[sal21]

Could you not use the current date and append?

Code: Select all

Dim myVar As String
myVar = "tot" & Month(Date)
MsgBox myVar

No....
the append month is dinamic, and not currentd date

[Rudi]

Maybe something like this?

Code: Select all

Dim myVar As String
Dim oldVal As String
    myVar = "tot01"
    oldVal = CInt(Right(myVar, 2)) + 1
    If oldVal > 12 Then oldVal = 1
    myVar = "tot" & Format(oldVal, "00")

[PJ_in_FL]

Code: Select all

myVar = Left(myVar, 3) & WorksheetFunction.Choose(CInt(Right(myVar, 2)), "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "01")