case "+"
ergebnis = Val(text1.text) + Val(text3.text)
case "*"
ergebniss = Val(text1.text) * Val(text3.text)
usw. und sofort.
End Select

Zitat:

Anmerkung Die Val-Funktion erkennt nur den Punkt (.) als gültiges Dezimalzeichen. Wenn Sie ein anderes Dezimalzeichen verwenden möchten (zum Beispiel bei internationalen Anwendungen), sollten Sie statt dessen die Funktion CDbl verwenden, um eine Zeichenfolge in eine Zahl umzuwandeln.