C# / VB.NET - Equivalente di sprintf("%08s",decbin(hexdec($byte))) in VB.NET

Domanda prettamente teorica: mi ritrovo una riga in uno script php nella quale trovo scritto come da titolo: riesco ,diciamo, ad emulare in VB.NET la 's' ma dovrei ottenere come risultato una stringa che abbia anche se più corta di 8 caratteri degli '0' all'inizio.Mi spiego meglio: converto in numero da hex a dec, converto il decimale in binario, lo scrivo e se è più corto di 8 devo mettere prima del numero binario tanti '0' quanto 8-lunghezza.
Come lo faccio?

Molto banalmente
-controllo la lunghezza
-aggiungo gli zeri necessari
-aggiungo il numero di partenza

in VB.net:

Dim lunghezza As Integer = Len(Cstr(num_binario))
Dim risultato As String = ""
For i = 1 To 8 - lunghezza
    risultato += "0"
Next
risultato += numero

Stringa.PadLeft(8, "0"