RosettaCodeData/Task/Increment-a-numerical-string/VBA/increment-a-numerical-string-1.vba

Public Function incr(astring As String) As String
'simple function to increment a number string
   incr = CStr(CLng(astring) + 1)
End Function