....ich hab den Code - Vielen Dank an Netzmann =D> \/

Nur die ^ durch Xor ersetzt und es lief.

Hier noch mal für alle die funktionierende Version:

Crc_reg = &HFF

For I = 1 To 10
Temp = Ar(i)

For J = 7 To 0 Step -1
If Temp.j = 1 Then
Temp2 = Crc_reg And &H80
If Temp2 <> 0 Then
Poly = 1
Else
Poly = &H1C
End If
Shift Crc_reg , Left , 1
Crc_reg = Crc_reg Or 1
Crc_reg = Crc_reg Xor Poly
Else
Poly = 0
Temp2 = Crc_reg And &H80
If Temp2 <> 0 Then Poly = &H1D
Shift Crc_reg , Left , 1
Crc_reg = Crc_reg Xor Poly
End If
Next
Next
Crc_reg = Not Crc_reg

Das war die härteste Nuss im Projekt, jetzt kanns weiter gehen

Bis Bald
Frank