Reciht nicht auch einfach
Set Feld = Left(Feld, 2)

Die Blanks anzu hängen, kann ich mir doch sparen..
Gruß Ronald