wert = CInt(TextBox1.Text)
 
For i = 1 To 9
    If wert And 1 Then ' Letztes Bit prüfen
       ' Button setzen
       Controls("Button" & i.ToString()).Text = "On"
    Else
       ' Button zurücksetzen
       ' ...
    End If
    wert >>= 1 ' Shift nächstes Bit
Next

________
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