String in 1 oder 0 umwandeln in Excel oder VBA

hallo,

habe folgendes problem,

ich habe eine excel datei mit mehreren spalten daten.
meine 5. spalte enthält 1226 zeilen mit diesen verschiedenen buchstaben:

V W M P B R E T U N Z

ich möchte jetzt in excel oder VBA eine funktion schreiben die mir eine neue spalte in dem excel sheet schreibt und alle V, M, P, B und E in 1 umwandelt, alle anderen sollen durch 0 ersetzt werden. kann mir da jemand weiterhelfen? danke