Leere Textboxen

Private Sub cmdSave_Click()
'Übertragen der Daten in Tabelle
lngLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngLastRow = 8 And IsEmpty(Cells(8, 1).Value) Then lngOffset = 0 Else lngOffset = _
1
.Cells(lngLastRow + lngOffset, 1) = cbPatID
.Cells(lngLastRow + lngOffset, 2) = txtPatName
.Cells(lngLastRow + lngOffset, 3) = "Agegroup?"
For lngIndex = 1 To 16
If IsEmpty(.Controls("TextBox" & CStr(lngIndex))) Then
.Cells(lngLastRow + lngOffset, 3 + lngIndex).Value = ""
Else
.Cells(lngLastRow + lngOffset, 3 + lngIndex).Value = CDate(Controls(" _
TextBox" & CStr(lngIndex)).Text)
End If
Next
End With
cmdCancel.Value = True
End If
End Sub