Dim i As Integer = 123456
 
        ' binär -> string
        Dim hs As String = i.ToString("x2")
        ' oder
        hs = Convert.ToString(i, 16)
 
        ' string -> binär
        Dim i1 As Integer = Convert.ToInt32(hs, 16)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist