need a function to replace of every nth occurrence in a string

does anyone have a function already written to replace every nth occurrence in a string. the search string needs to be (for me) 2 characters str = full string sSearch = search string sReplace = the replacement string I = nth occurrence function ReplaceNth(str, sSearch, sReplace, I)