Vba Excel String In Integer Umwandeln