Convertire un numero da rappresentazione esadecimale in binaria

Per convertire un numero esadecimale nella sua rappresentazione binaria, sarà sufficiente convertire ogni sua singola cifra esadecimale nel corrispondente binario come segue:

Public Sub Main()

 Dim esa, bnr As String
 Dim bb As Byte[]
 Dim b As Byte
 
' Convertiamo ad esempio il valore esadecimale:
  esa = "1A2B3C"

  bb = Byte[].FromString(esa)
 
  For Each b In bb
   bnr &= Bin(Val("&" & (Chr(b))), 4)
  Next

  Print bnr

End