also ich konnte es soweit eingrenzen:

der code funktioniert erstmal prima, bis ich folgendes reinnehme

Dim Vsel As Bit
Dim Selec As Bit
Dim Ou As Bit
Dim Helper As Bit

.
.
.
.

If Vsel = 0 And Byte1 = &H86 And Byte3 = &H08 Then
Set Vsel
Helper = 1
Waitms 500
End If


dann sagt er für die zeile wo if steht invalide datatype


screibe ich zum test irgendwo im code
vsel=0 dann meckert er: assignment error