Please help!

Using VBA in XP with Win 2000;

I am trying to create a rectangle in VBA on a spreadsheet
and add some custom text, say 5 rows.

I want to turn the text -90 degrees (so it reads bottom to
top on its side), and single underline the first row and
the last row of text.

Note: that I must use a rectangle and NOT a text box.

I can add a rectangle in VBA, but that is where it stops.
I can't seem to even get text in the box...your example
code is what I need the most. Thanks in advance...