バイトをビット文字列に変換

Dim b() As Byte = System.Text.Encoding.Unicode.GetBytes("でーた")

Convert.ToString(b(0), 2).PadLeft(8, "0"c)