Eingabe in TextBox

Guten Morgen Gemeinde,
ich habe eine TextBox mit dem Name "TextBox1" durch die Steuerelementenfunktion in "Tabelle1" eingefügt. Dazu habe ich noch eine LinkedCell von "Tabelle1!$D$10" definiert sodass jede Eingabe in die TextBox1 in D10 ausgegeben wird. Aber jetzt habe ich immer die Fehlermeldung wegen der Formatierung der Eingabe dass die Eingabe einer Zahl nicht als Zahl anerkannt wird sondern als Text. Ich habe den folgenden Code ausprobiert und dann kam die Fehlermeldung nicht mehr. Aber wenn da nichts in der TextBox1 eingegeben wird, kommt da der Laufzeitfehler Nr. 13 "Typen unverträglich".

Private Sub TextBox1_Change()
Sheets("Tabelle1").Range("D10").Value = CDbl(Me.TextBox1.Value)
End Sub