[hassanalhawy]

هذا هو التفسير المنطقى لذلك
وحتى لو كتبنا الكود كما يلى سوف يعطى خطأ فى نفس السطر

Function Sum(ByVal First As Byte, ByVal second As Byte) As
Dim total As Short
total = First + second
total = total - 1
Return total
End Function

بالرغم من أن total أصبحت قيمتها فى المدى المسموخ لـ Byte