Sub Main Debug.Print Replace$("abcabc","b","B") '"aBcaBc" Debug.Print Replace$("abcabc","b","B",,1) '"aBcabc" Debug.Print Replace$("abcabc","b","B",3) '"caBc" Debug.Print Replace$("abcabc","b","B",9) '""End Sub