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
Initial data commit 2023-07-01 11:58:00 -04:00			`Public Function incr(astring As String) As String`
			`'simple function to increment a number string`
			`incr = CStr(CLng(astring) + 1)`
			`End Function`