VB script to delete file in directory except for files that contain particular string

Hi All,

I need some assistance if anyone has a moment. I'm looking for a script that will delete files in a share \\server\SaveToFile except for files that contain the string: LEGAL LOCK UP
LEGAL LOCK UP string will always be constant and upper case.

Example file: TEST_NONPRODUCTION AGNES_LEGAL LOCK UP_22450-1_12_21_12_1351.PDF