or may be a one liner like...
Dim binaryString As String = Convert.ToString(numberToConvert, 2)
Use PadLeft(n, "0") for required minimum length(n) of the output string.
so it would look like
Dim binaryString As String = Convert.ToString(numberToConvert, 2).PadLeft(n, "0")
Prashant
perfection is "process" not "property".