レジストリからバイナリ形式の値を取得し、それを文字列に変換してテキストボックスに入力しようとしています。コードを実行すると、テキストボックスが空になります。レジストリをチェックしましたが、VBのコードでチェックするだけでなく、そこにバイナリ値があります。以下は、値を取得して変換し、テキストボックスに追加するためのコードです。
Dim LANDeskVirus As String = CStr(My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\LANDesk\ManagementSuite\WinClient\Antivirus", _
"PatternFileDate", Nothing))
Dim LANDeskVirusDefintion As String = Convert.ToString(LANDeskVirus)
Dim BinaryText As String = LANDeskVirusDefintion
Dim Characters As String = Regex.Replace(BinaryText, "[^01]", "")
Dim ByteArray((Characters.Length / 8) - 1) As Byte
For Index As Integer = 0 To ByteArray.Length - 1
ByteArray(Index) = Convert.ToByte(Characters.Substring(Index * 8, 8), 2)
Next
TextBox1.Text = (ASCIIEncoding.ASCII.GetString(ByteArray))