Here is one way...
Sub abc()
Dim str As String
str = "aaaaaaaa"
Mid$(str, 5, 1) = Chr$(10)
MsgBox str
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"John Wilson"
wrote in message
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