ActiveX Textbox copy to cell & carraige returns cause garbage character

I am getting some weird behavior when I run my macro to copy the text out of an ActiveX textbox to a cell (not userform textbox). I am getting an extra symbol for male character after most (but not all??) of my carriage returns. It looks like this:

Recent Events
--blah blah blah
--More blah
--blah

Upcoming Events
--Soon blah blah blah
--other blah
--blah

When it copies into the cell, it looks like this:

Recent Events(symbol for male)--blah blah blah
--More blah
--blah (symbol for male)(symbol for male)Upcoming Events(symbol for male)--Soon blah blah blah(symbol for male)--other blah(symbol for male)--blah

Why is this happening? Is this a bug?

It's because vbCr are ignored in cells and displayed as unknown characters, new lines in cells use vbLf, so you need to replace vbCr with vbLf

Cells(1, 1).Value = Replace(Me.TextBox1.Text, Chr(13), vbLf)

Originally Posted by Kyle123

It's because vbCr are ignored in cells and displayed as unknown characters, new lines in cells use vbLf, so you need to replace vbCr with vbLf

Cells(1, 1).Value = Replace(Me.TextBox1.Text, Chr(13), vbLf)

But it is an ActiveX Textbox, so my code currently looks like this:

Cells(1, 1) = Sheets("MySheet").Shapes("TextBox 1").TextFrame.Characters.Text

How do I do this with an ActiveX textbox?

Thanks. I think that did it.

Great, please mark your thread as solved