Working with an embedded Word object?

In a worksheet is an embedded Word object. When I click a button, I want the object's text to copy to cell A1. (I'm using Excel 2003.) Where Word had a new-line paragraph mark, I want a new line in Excel. And where Word had a tab mark, I want 5 spaces in Excel (couldn't think of what else to use).

The code below shows what I came up with, but I'd like commentary on it. Is this the most efficient way? Any other suggestions?

Thanks,
Charles

Please Login or Register  to view this content.