Visual Basic - arreglos en visual basic

Saludos a todos mi problema es este:

Tengo un programa que recive un numero dentro de un cuadro de texto y lo que quiero es que al momento de precionar un boton me convierta ese numero en binario como podria hacerlo, de antemano les agradesco su ayuda

Atte:
Arturo Ibarra

Esta en: http://www.elguille.info/vb/cursos_vb/basico/basico07.htm

Es:

Private Function Dec2Bin(sNumDec As String) As String
' Recibe una cadena que será un número decimal
' Devuelve ese número representado por ceros y unos
'
Dim i As Integer
Dim lngNum As Long ' Long, por si las moscas
Dim sTmp As String ' Cadena temporal

lngNum = Val(sNumDec)
sTmp = ""
For i = MaxBits - 1 To 0 Step -1
If lngNum And 2 ^ i Then
sTmp = sTmp & "1"
Else
sTmp = sTmp & "0"
End If
Next

Dec2Bin = sTmp
End Function

While Dividendo \ 2 <> 0
CadenaOriginal = CadenaOriginal & Dividendo Mod 2
Dividendo = Dividendo \ Base
Wend
CadenaOriginal = CadenaOriginal & Dividendo Mod 2
CadenaFinal = StrReverse(CadenaOriginal)

La idea es Hacer diviciones hasta que el cociente sea cero, y luego invertir la cadena.

Atiendan las reglas NUEVAS de este FORO.
1. Contestar Bien
2. Contestar al que pregunta.
3. Poner el Comentario a Consideración del MODERADOR, para su autorización...!!!

MUCHA VIDA.....