Dim summeOP1 As Integer
Dim summeOP2 As Integer
Dim i As Integer
 
   For i = 0 To Option1(1).UBound
        If Option1(1)(i).Value = True Then
            summeOP1 = summeOP1 + Option1(1)(i).Tag
            Text1.Text = summeOP1
        End If
    Next i
        If Option2(1)(i).Value = True Then
            summeOP1 = summeOP1 + Option2(2)(i).Tag
            Text1.Text = summeOP1
        End If
    Next i
        If Option1(2)(i).Value = True Then
            summeOP2 = summeOP2 + Option1(2)(i).Tag
            Text4.Text = summeOP1
        End If
    Next i
        If Option2(2)(i).Value = True Then
            summeOP2 = summeOP2 + Option2(2)(i).Tag
            Text4.Text = summeOP2
        End If