¿Cómo solucionar el error de "desbordamiento" en tiempo real en VB 6.0?

El problema está en DAT(1) * 256. Debido a que define DAT(1) como tipo de byte, VB pensará que DAT(1) * 256 es de tipo byte, por lo que se desborda. Cámbielo así:

tamaño = tamaño+(dat(3)* 256 ^ 3+dat(2)* 256 ^ 2+dat(1)* 256! + DAT(0)) / 2 . (¡Agregue uno más! Solo números).