' Check for the last occurence If Mid(lcString, lcString.Length - lcWord.Length) = "." + lcWord Then lcString = Mid(lcString, 1, lcString.Length - lcWord.Length) + "[" + lcWord + "] " End If ' Check for the first occurence If Mid(lcString, 1, lcWord.Length + 1) = lcWord + "." Then lcString = "[" + Mid(lcString, 1, lcWord.Length) + "]" + Mid(lcString, lcWord.Length + 1) End IfNow, in order to fit some very long string, I have adjusted that method to use a StringBuilder instead.