Wert = ByteL(0) + 256 * ByteL(1)

Public Function Bits_von_bis&(ByVal Wert&, ByVal von&, ByVal bis&)
  Dim Maske&, i&
 
  Maske = 0
  For i = von To bis
    Maske = Maske + 2 ^ i
  Next i
  Bits_von_bis = (Wert And Maske) / (2 ^ von)
End Function

Gruss,

Zardoz