string$="12345"
string$=Str(Val(string$)+1)
Debug string$