E' un po' difficile dire il perché succeda guardando il codice (effettivamente un po' confuso, non te la prendere ...). In realtà potrebbero esserci molte cause ... se vuoi indicarmi, anche in privato, dove poter scaricare il progetto per correggerlo, troverò il tempo per farlo.
P.S. Ti consiglio di evitare i GoTo ... quel ciclo potrebbe essere, più chiaramente
For I = 1 To 45
If I <> 17 And I <> 40 Then
Settaggi(I) = TbSettaggi(I)
Verify(I) = TbSettaggi(I)
tSet(I) = TbSettaggi(I)
End If
Next