Hallo,

ich habe auch so einen ähnlichen Encoder. Ich löse das über eine Bit-Variable:

Code:
Dim X As Byte
Dim Encbit As Bit

links:
Toggle Encbit
   If Encbit = 1 Then
      decr X
   End If
Return
rechts:
Toggle Encbit
   If Encbit = 1 Then
      incr X 
   End If
Return