Man kann das alles mit einer einzigen Sub, die alle Handles der Zifferntasten übernimmt, machen und für Textboxes gibt es die AppendText Methode