Userform Textbox Zahlen

Private Sub TextBox5_AfterUpdate()
If IsNumeric(TextBox5.Text) Then TextBox5.Text = CDbl(TextBox5.Text)
End Sub

Private Sub TextBox12_Change()
If IsNumeric(TextBox12.Text) Then TextBox12.Text = CDbl(TextBox12.Text)
End Sub

Private Sub TextBox18_AfterUpdate()
If IsNumeric(TextBox18.Text) Then TextBox18.Text = CDbl(TextBox18.Text)
End Sub

Private Sub TextBox19_AfterUpdate()
If IsNumeric(TextBox19.Text) Then TextBox19.Text = CDbl(TextBox19.Text)
End Sub

Private Sub EINTRAG_SPEICHERN()
Dim lZeile As Long
Dim i As Integer
Dim letzteZeile As Long
Dim Text1 As String, Text2 As String
Dim Textbox As Object
' Es sind alle Texfelder auszufüllen
Text1 = "Alle Felder ausfüllen !"
Text2 = "TK-25"
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
If Me.Controls("TextBox" & i) = "" Then
MsgBox Text1, vbCritical + vbOKOnly, "Eingaben unvollständig"
Exit Sub
End If
Next i
With Controls("TextBox12")
If IsNumeric(.Text) = False Then
MsgBox "Bitte numerischen Wert in Feld " & Text2 & " eintragen!" & Chr(13) & "Falls nicht vorhanden, ""0"" eingeben !", vbCritical
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
Exit Sub
End If
End With
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
'ein Eintrag?:
If TextBox19.Text  "" Then
'kann Eintrag in eine Zahl umgewandelt werden:
If IsNumeric(TextBox19.Text) Then
'größer Null?:
If CDbl(TextBox19.Text) = 0 Then
MsgBox "Die Gesamtzahl muß größer als Null sein", vbCritical
End If
End If
End If
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Select Case (i)
Case 1 To 4:    Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 6 To 10:   Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 13 To 16:  Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 18 To 19:  Tabelle1.Cells(lZeile, i) = CDbl(Me.Controls("TextBox" & i))
Case 12:        Tabelle1.Cells(lZeile, i) = CDbl(Me.Controls("TextBox" & i))
Case 5:         Tabelle1.Cells(lZeile, i) = CDbl(Me.Controls("TextBox" & i))
Case 20:        Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 21:        Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Case 11:        Tabelle1.Cells(lZeile, i) = CDate(Me.Controls("TextBox" & i))
Case 17:        Tabelle1.Cells(lZeile, i) = CDate(Me.Controls("TextBox" & i))
End Select
Tabelle1.Cells(lZeile, i) = Me.Controls("TextBox" & i)
Next i
'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
ListBox1.List(ListBox1.ListIndex, 1) = TextBox11
ListBox1.List(ListBox1.ListIndex, 2) = TextBox21
ListBox1.List(ListBox1.ListIndex, 3) = TextBox4
End Sub