Finally I found a expression that works, at least for my particular case.
Its your expression but without the '*'

Find = \([!\(\)]@[0-9]{4}\)

I thought a little and I noticed that fortunately for me all the strings I want to delete ends with '####)' So the '*' is not necessary.
Thanks for you help Paul.