Format von TextBoxen

Private Sub CommandButton1_Click()
Dim intIndex As Integer, bolausgefüllt As Boolean, lngleereZeile As Long
For intIndex = 1 To 5
If Controls("TextBox" & CStr(intIndex)) = "" Then
Call FehltWas
Controls("TextBox" & CStr(intIndex)).SetFocus
Exit Sub
End If
Next
For intIndex = 1 To 7
If Controls("CheckBox" & CStr(intIndex)) = True Then bolausgefüllt = True: Exit For
Next
If Not bolausgefüllt Then
MsgBox "Angabe fehlt: Schicht gültig am...   ", 48, "Hinweis :-)"
Exit Sub
End If
With Worksheets("Tabelle1")
lngleereZeile = .Cells(65536, 2).End(xlUp).Row + 1
If lngleereZeile < 8 Then lngleereZeile = 8
For intIndex = 1 To 5
.Cells(lngleereZeile, intIndex + 1) = Controls("TextBox" & CStr(intIndex))
Controls("TextBox" & CStr(intIndex)) = ""
Next
For intIndex = 1 To 7
.Cells(lngleereZeile, intIndex + 6) = IIf(Controls("CheckBox" & CStr(intIndex)), "X", "")
Controls("CheckBox" & CStr(intIndex)) = False
Next
For intIndex = 6 To 17
.Cells(lngleereZeile, intIndex + 8) = Controls("TextBox" & CStr(intIndex))
Controls("TextBox" & CStr(intIndex)) = ""
Next
End If
End With
TextBox1.SetFocus
If lngleereZeile = 107 Then
Call TabelleVoll
Unload Me
End If
End Sub