Android Question 16 bit word variable?

Sub calcChecksum16( myData() as Byte ) as Int
  Dim myCheck as int  'use a 32-bit integer
  myCheck =0 'or initial value
  for k=0 to myData.length-1
    If myData(k)>0 then
      myCheck=myCheck+myData(k)
    Else
      myCheck=myCheck-myData(k)
    End if
  next
  myCheck=Bit.And(myCheck,0xFFFF)
  return ( myCheck )
End Sub

   Dim raf As RandomAccessFile
   raf.Initialize3(data, True) 'change the endianess if the version number is incorrect
   BuildVersionNumber = raf.ReadShort(0)
   PacketType = raf.ReadSignedByte(2)
   RaceStateFlags = raf.ReadUnsignedByte(10)