Excel textboxes

From VB5 I can add a text box to an Excel worksheet using
With xlSheet.Shapes.Addshape (msoShapeRectangle,100,200,50,50)
. Name = "Box1"
end with
But I cannot find out how to place text in the text box
Can anyone advise
Regards Dave Puttock
[email protected]

Code:

---

    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.Characters.Text = "af"

---