I use a while loop to add the missing 0's. Like this:

Dim temp = Convert.ToString(data, 2)
While temp.Length < 15
temp = "0" & temp
End While

Is that a slow method?