Code:
  Dim tst_Str As Byte, int_Temp As Double
  Dim T1 As Byte, T2 As Byte, OutVal As Double

   Open "a:\6-29 R2 after chelex LB=1Hz" For Binary Access Read Lock Read As #1
   int_Temp = 1
   
  While Not EOF(1)
      
      Get #1, int_Temp, T1
      int_Temp = int_Temp + 1
      
      OutVal = (256 * (T1 Xor 15)) + (T1 And 15)      <=====***
      
      Get #1, int_Temp, T2
      int_Temp = int_Temp + 1
     
   Wend
when T1 = 170 then OutVal is going to equal (256*160) + 10.
or 40970.

Why am I getting an Overflow error? I tried setting the type to
Long, same thing.

I know I'm doing something stupid, but what?