fcstab(163) = &H9791&
    fcstab(164) = &HE32E&
    fcstab(165) = &HF2A7&
    fcstab(166) = &HC03C&
    fcstab(167) = &HD1B5&
    fcstab(168) = &H2942&
    fcstab(169) = &H38CB&
    fcstab(170) = &HA50&
    fcstab(171) = &H1BD9&
    fcstab(172) = &H6F66&
    fcstab(173) = &H7EEF&
    fcstab(174) = &H4C74&
    fcstab(175) = &H5DFD&
    fcstab(176) = &HB58B&
    fcstab(177) = &HA402&
    fcstab(178) = &H9699&
    fcstab(179) = &H8710&
    fcstab(180) = &HF3AF&
    fcstab(181) = &HE226&
    fcstab(182) = &HD0BD&
    fcstab(183) = &HC134&
    fcstab(184) = &H39C3&
    fcstab(185) = &H284A&
    fcstab(186) = &H1AD1&
    fcstab(187) = &HB58&
    fcstab(188) = &H7FE7&
    fcstab(189) = &H6E6E&
    fcstab(190) = &H5CF5&
    fcstab(191) = &H4D7C&
    fcstab(192) = &HC60C&
    fcstab(193) = &HD785&
    fcstab(194) = &HE51E&
    fcstab(195) = &HF497&
    fcstab(196) = &H8028&
    fcstab(197) = &H91A1&
    fcstab(198) = &HA33A&
    fcstab(199) = &HB2B3&
    fcstab(200) = &H4A44&
    fcstab(201) = &H5BCD&
    fcstab(202) = &H6956&
    fcstab(203) = &H78DF&
    fcstab(204) = &HC60&
    fcstab(205) = &H1DE9&
    fcstab(206) = &H2F72&
    fcstab(207) = &H3EFB&
    fcstab(208) = &HD68D&
    fcstab(209) = &HC704&
    fcstab(210) = &HF59F&
    fcstab(211) = &HE416&
    fcstab(212) = &H90A9&
    fcstab(213) = &H8120&
    fcstab(214) = &HB3BB&
    fcstab(215) = &HA232&
    fcstab(216) = &H5AC5&
    fcstab(217) = &H4B4C&
    fcstab(218) = &H79D7&
    fcstab(219) = &H685E&
    fcstab(220) = &H1CE1&
    fcstab(221) = &HD68&
    fcstab(222) = &H3FF3&
    fcstab(223) = &H2E7A&
    fcstab(224) = &HE70E&
    fcstab(225) = &HF687&
    fcstab(226) = &HC41C&
    fcstab(227) = &HD595&
    fcstab(228) = &HA12A&
    fcstab(229) = &HB0A3&
    fcstab(230) = &H8238&
    fcstab(231) = &H93B1&
    fcstab(232) = &H6B46&
    fcstab(233) = &H7ACF&
    fcstab(234) = &H4854&
    fcstab(235) = &H59DD&
    fcstab(236) = &H2D62&
    fcstab(237) = &H3CEB&
    fcstab(238) = &HE70&
    fcstab(239) = &H1FF9&
    fcstab(240) = &HF78F&
    fcstab(241) = &HE606&
    fcstab(242) = &HD49D&
    fcstab(243) = &HC514&
    fcstab(244) = &HB1AB&
    fcstab(245) = &HA022&
    fcstab(246) = &H92B9&
    fcstab(247) = &H8330&
    fcstab(248) = &H7BC7&
    fcstab(249) = &H6A4E&
    fcstab(250) = &H58D5&
    fcstab(251) = &H495C&
    fcstab(252) = &H3DE3&
    fcstab(253) = &H2C6A&
    fcstab(254) = &H1EF1&
    fcstab(255) = &HF78&
  End If
 
  ' The initial FCS value
  fcs = pppinitfcs16
 
  ' evaluate the FCS
  For I = LBound(cp) To LBound(cp) + Size - 1
    cp(I) = BitsSwappen(CInt(cp(I)))
    fcs = (fcs \ &H100&) Xor fcstab((fcs Xor cp(I)) And &HFF&)
  Next I
 
  ' return the result
  Crc16 = fcs
End Function
 
 
Public Function BitsSwappen(Dezimal As Integer)
Dim Binär1 As String
Dim Binär2 As String
Dim Potenz As Integer
Dim j As Integer
 
Binär1 = Format(DezToBin(Dezimal), "0000000#")
 
Binär2 = ""
For j = 8 To 1 Step -1
    Binär2 = Binär2 & Mid(Binär1, j, 1)
Next j
 
Potenz = 0
For j = 8 To 1 Step -1
    BitsSwappen = BitsSwappen + Mid(Binär2, j, 1) * 2 ^ (Potenz)
    Potenz = Potenz + 1
Next j
 
End Function

fcs = (fcs \ &H100&) Xor fcstab((fcs Xor cp(I)) And &HFF&)