Function RightShift(pValue, pShift)
				Dim NewValue, PrevValue, i
				PrevValue = pValue
				For i = 1 to pShift
					Select Case VarType(pValue)
						Case vbLong
							NewValue = Int((PrevValue And "&H7FFFFFFF") / 2)
							If PrevValue And "&H80000000" Then NewValue = NewValue Or "&H40000000"
							NewValue = CLng(NewValue)
						Case vbInteger
							NewValue = Int((PrevValue And "&H7FFF") / 2)
							If PrevValue And "&H8000" Then NewValue = NewValue Or "&H4000"
							NewValue = CInt(NewValue)
						Case vbByte
							NewValue = CByte(PrevValue / 2)
						Case Else: Err.Raise 13 ' Not a supported type
					End Select
					PrevValue = NewValue
				Next
				RightShift = PrevValue
			End Function		
		
			Function GetCRC16(ByVal bytes, ByVal len)
				Dim result, TmpCRC, i, j
				result = &H0000&
				For i = 0 to len-1
					TmpCRC = result Xor bytes(i)
					For j = 0 to 7
						If (TmpCRC And &H0001&) <> 0 Then
							TmpCRC = RightShift(TmpCRC, 1)
							TmpCRC = TmpCRC Xor &H08408&
						Else
							TmpCRC = RightShift(TmpCRC, 1)
						End If
					Next
					result = TmpCRC
				Next
				
				GetCRC16 = result
			End Function