Wie können Shapes angesprochen werden?

[Gorbs]

Hallo,
Ich habe ein Power Point Makro geschrieben, das eine Textbox generieren und mit Inhalt versehen soll:

Sub Contgen(osh As Shape, thecontent As String)

Dim Content As Shape
Dim oSl As Slide

Set oSl = osh.Parent

Set Content = oSl.Shapes.AddShape(msoShapeRectangle, _
482, _
310, _
210, _
150)


Content.TextFrame.TextRange.Text = thecontent
Content.TextFrame.WordWrap = msoTrue
Content.TextFrame.TextRange.Font.Size = 12
Content.TextFrame.TextRange.Font.Name = "Arial"
Content.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft


ActivePresentation.SlideShowWindow.View.GotoSlide (oSl.SlideIndex)



End Sub

Das funktioniert auch soweit sehr gut.
Ich habe allerdings das Problem, dass ich diese Textboxen wieder loswerden möchte, sobald die nächste geöffnet wird.

Habe hierzu eine einfache Delete Funktion:
Sub Delete(osh As Shape)
osh.Delete
End Sub

Dieser Funktion muss allerdings ein Shape Übergeben werden.

Jetzt das Problem:
Ich muss also beim Aufruf der Contgen() das Shape löschen das beim vorherigen Aufruf generiert wurde!

Wie kann ich das entsprechende Shape ansprechen?

Vielen Dank schonmal.