Okay, funktioniert doch mit Dim eingabe as String,
mein Fehler!
Trotzdem bekomme ich noch den Laufzeitfehler 13 wen ich nichts eintrage oder buchstaben, markiert wird weiterhin Ergebnis = Eingabe * (1 + Provision)