got it itsmyjob
@3DPLM
remove LCase from the replace string and use vbTextCompare as argument, then you will get the desired result
check below lines
objFIns.Name = Replace(objFIns.Name, FstStr, SndStr, , , vbTextCompare)
objFIns.PartNumber = Replace(objFIns.PartNumber, FstStr, SndStr, , ...