Dim i1 As Integer = 6
 
    Dim bsi As String = Convert.ToString(i1, 2)  [.PadLeft(8, "0"c)]
 
    Dim i2 As Integer = Convert.ToInt32(bsi, 2)

________
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