VBA expression to extract the text from the beginning of an alphanumeric string

Hello,

I've edited to change my requirements.

Does anyone know any vba code that could delete everything but alphabetic characters from a string? Basically, everything but A to Z should be deleted, including all numbers and special characters (!@#$%^&*()).

Thank you.