Хах !

Dim byteTemp As Byte



For byteTemp = 0 To 255

    Debug.Print byteTemp

Next 'byteTemp

'Този ефект го забелязах отдавна,дефакто се извършва още една итерация
'при проверката за излизане от цикъла

'Така работи

Dim byteTemp As Byte

For byteTemp = 0 To 255
Debug.Print byteTemp
If byteTemp = 255 Then Exit For
Next 'byteTemp

Гадна работа :) Досега не ползвах интензивно типа Byte (особено пък за цикли изобщо) но днес правих някакви щуротии и реших да го ползвам и хоп - Surprise :)

Да бе, мамка му, когато byteTemp стане 255 се изпълнява тялото на цикъла и в момента в който се срещне Next променливата се увеличава със стъпката (в случая 1) и прас - Overflow :)