i change codes like this and i solved
With excelWorksheet
Dim s
On Error Resume Next
For Each lbl As Control In groupbox1.Controls
If TypeOf lbl Is Label Then
If lbl.Left = 8 Then
s = s + 1
For Each lbl2 In groupbox1.Controls
If lbl2.TabIndex * 1 = s - 1 And lbl.Left = 8 Then
' MsgBox(lbl2.TabIndex * 1 & vbLf & s - 1)
.Cells(s, 1).value = lbl2.Text
ElseIf (lbl2.TabIndex * 1) = (s - 1) + 100 And lbl.Left = 8 Then
.Cells(s, 2).value = lbl2.Text * 1
End If
Next
'MsgBox(lbl.TabIndex * 1 & vbLf & s - 1)
End If
End If
Next lbl