Access Function to add numbers 1,2,3...n to field values that are duplicates

I need a simple VBA function for MS Access (2010) that I can use in an update query to 1) checks the strings in a given field for duplicates 2) then, for strings that have duplicates, add digits to its end. Example of the input and the expected output: K17B8897 --> K17B8897-0 K17B8897 --> K17B8897-1 H19R1234 --> H19R1234-0 H19R1234 --> H19R1234-1 H19R1235 --> H18R1235 P22K4456 --> H22K4456 K17B8897 --> K17B8897-2 (mind the hyphen!) K17B8897 --> K17B8897-3 (mind the hyphen!) The output strings should be put into a new field, which the function should create itself, ideally to the right of the source field. The function will have three parameters: CheckDuplicates(WhichFieldToCheck, NameOfFieldToCreateForOutput; StartWithNumber) The parameters are - WhichFieldToCheck: Name of the field to check - NameOfFieldtoCreateForOutput: Possibility to set a name for the new column that will be created; if not name is given, "Modified" is used. - StartWithNumber: Set a number to start with, e.g. 1000 --> 1000, 1001, 1002...; if not set, counting starts with 0. For delivery, it is sufficient to send me the VBA code; I will myself create a module to store it where I need it.