Stringinhalte als .caption

Private Sub cmdaktualisieren_Click()
tboxdate.Caption = Date
Worksheets("Arbeitszeiten").Range("I9").Value = tboxdate.Caption
'Deklarationen zur F1
Dim F1 As Variant
Dim F_1 As String
Dim i1 As Integer
Dim x1 As Integer
'Berechnungen zur F1
x1 = 0
F1 = [Arbeitszeiten!x6:x25]
For i1 = LBound(F1) To UBound(F1)
If Application.Index(F1, i1, 1) = 0 Then
GoTo point1
ElseIf x1 = 0 Then
F_1 = F_1 & Application.Index(F1, i1, 1)
x1 = 1
Else
F_1 = F_1 & Chr(92) & Application.Index(F1, i1, 1)
End If
point1:
Next i1
tbox_F1.Caption = F_1
End Sub