Sub changePrompt()
Dim doc As DrawingDocument
Set doc = ThisApplication.ActiveDocument
Dim tb As TextBox
Dim border As border
Set border = doc.ActiveSheet.border
Dim borderDef As BorderDefinition
Set borderDef = border.Definition
For Each tb In borderDef.Sketch.TextBoxes
If tb.Text = "<Sheet Description>" Then
Call border.SetPromptResultText(tb, "first sheet")
End If
Next
End Sub