remove all characters after "\" from string

I am looking for a vbscript which will remove all characters after "\" from string...

for e.g. Input as below -

First\abc12

Second\bcde1

Third\qwerty6

Four\jcuryy

output should be like this-

First

Second

Third

Four

Can someone guide me?

Thanks & Best Regards, MPG