SUB Delete ( Name AS String )