Zahlen und Strings

ich möchte in der Spalte B (in der 7stellige Zahlen stehen und 7stellige Zahlen mit G am Ende) prüfen, ob der letzte Buchstabe ein G ist. Wenn ein G am Ende der Zahl gefunden wird, dann soll das G ausgeschnitten und in die Spalte rechts kopiert werden.
Wie setze ich das in VBA um?

Dank im voraus

Ralf