Convertir de base 10 a 2

[llAudioslavell]

aun no lo termino, solo que tengo un problema....


        Dim divd As Integer = Val(TextBox2.Text)
        Dim Result As Integer = 0
        Dim c As Integer = 0
        Dim r As Integer
        While (divd >= 2)
            c = divd \ 2
            r = divd Mod 2
            divd = c
            Result &= r
        End While
        Label11.Text &= StrReverse(Result)

es que cuando la primera cifra es el 0 no concatena  ....