Übertragen Cdbl

Ich übertrage Werete aus einer textbox in eine Tabelle, um dort damit Weiterzurechnen:

Teil des Codes

Set einf = c.Offset(0, 6) 'Ust Messpreis
einf.Value = CDbl(txt6.Value)

Das klappt auch sehr gut.

Nur wenn ich Zahlen kleiner als Eins Z.B. 0,25 ohne die Null als erste Dezimalstelle, also ,25 eingebe bekomme ich einen Laufzeitfehler.

Kann mir jemand sagen, wie ich das ändern, bzw die textbox so absichern kann, dass die Eingabe ,25 gar nicht möglich ist?

Vielen Dank im voraus

Michael