Search For Double Characters and Place Character In-Between

[Manfred]

Is there a simple way to find all double characters in a string (of variable length) and place another character in-between them? I'm completely stumped!

eg. "MESSAGE" would become "MESXSAGE"

 

[Peter_SSs]

I've just tried that out - really nice! I'm still learning at the moment, I'm quite a long way off being able to write my own UDFs, but hopefully I'll get there one day!

Just stick at it and I'm sure you will get there. Remember that we all start off not even knowing what Excel or vba is.

Also note that the RegExp concept I used earlier could also be implemented as a UDF with the same features.

Function SplitEm(s As String, Delim As String, Optional CheckCase As Boolean = False) As String
  With CreateObject("vbScript.RegExp")
    .Global = True
    .IgnoreCase = Not CheckCase
    .Pattern = "(.)(?=\1)"
    SplitEm = .Replace(s, "$1" & Delim)
  End With
End Function

Excel Workbook
	A	B	C	D
1	MESSAGE	MESXSAGE	MES SAGE	MES:-:SAGE
2	Cat	Cat	Cat	Cat
3	Mississippi	MisXsisXsipXpi	Mis sis sip pi	Mis:-:sis:-:sip:-:pi
4	AaAaA	AXaXAXaXA	AaAaA	A:-:a:-:A:-:a:-:A
5	Llewellyn	LXlewelXlyn	Llewel lyn	L:-:lewel:-:lyn
Sheet1