Prüfen ob TextBox vorhanden

Für meine Makro suche ich nach einer Lösung die vor dem löschen prüft ob eine Textbox vorhanden. Ich füge mit einer Wenn-Abfrage eine Textbox in TB ein. Mit einem anderen Makro soll diese Textbox unter bestimmten Bedigungen wieder gelöscht werden. Soweit habe ich auch kein Problem. Nur wenn in TB keine TextBox ist gibt es Fehlermeldung. Wie kann ich dieses umgehen?

Sub Pflegehinweis_löschen()
Worksheets("Rechnung").Shapes("TextBox1").Delete
Range("B8").Activate
End Sub

Vielen Dank im voraus