Dim lng As Long = 123456789
   'Bits der Long-Variable in ein Bitarray eintragen
   Dim ba As System.Collections.BitArray = lng.GetBits
   'Bitarray in einen 0/1 String eintragen (zwecks Inspektion)
   Dim bitstring As String = ba.Bits2String
   'Bitarray teilweise ändern 
   For i As Integer = 10 To 14
       ba(i) = True
   Next i
   'Geändertes Array abfragen 
   Dim bitstring2 As String = ba.Bits2String
   'Geänderte Bitfolge in Long-Variable eintragen
   lng.SetBits(ba)   '-> 123469077