Visual Basic - Jak wyświetlić liczbę binarną w TextBox?

Witam,czy jest w vb coś takiego jak printbin?
Jak wysłać na textbox liczbę w formie binarnej? np. 255 -> 11111111 ?
Pozdrawiam.

Dzięki.

Function Dec2Bin(ByVal n As Long) As String
Do Until n = 0
If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin
n = n \ 2
Loop
End Function