perhaps

Sub test()
Dim strTemp As String

strTemp = "aaaaaaaa"
strTemp = Application.Replace(strTemp, 5, 1, Chr(10))
MsgBox strTemp

End Sub


"John Wilson" wrote:

Hoping there's an easy way to do this.
Tried the hard way (Left, Right) and it works but I was looking
for an easier way.

I need to replace a character in a string by it's position in the string.

i.e.
String = "aaaaaaaa"
Replace the 5th character with "Chr(10)"

Result = "aaaa(Chr(10))aaa"

Thanks for your help