For I = 1 To 10 If I > 2 And I < 8 Then If I > 4 Then X = X + 1 End If If I > 6 Then Y = Y + 1 End If End If Next I