Na suuuper, klappt prima, vielen dank

Code:
Result = Pinb And 7
   Select Case Result
   Case 0 : D = 4
   Case 1 : D = 12
   Case 2 : D = 8
   Case 3 : D = 16
   Case 4 : D = 6
   Case 5 : D = 14
   Case 6 : D = 10
   Case 7 : D = 18
   End Select
Gruss Stefan