ayuda a un newbie, please!!!

[fantasma306]

Hola a todos,
estoy empezando en esto del visual basic, y estoy haciendo unos pequeños programillas para practicar un poco, (ya saben, calculadoras y cosas así  ) pues se me ocurrio hacer un convertidor de decimal a binario.
Pues el codigo que utilice (para mi esta bien) pero cuando ejecuto el programa se me queda to pillao 
aqui les pongo el codigo  aver si me pueden decir donde esta el fallo:

Código:

Private Sub Command1_Click()
Dim num As String, div As String, res As String, coci As String
If Text1.Text = "" Then
Else
If Text1.Text = 0 Then
Text1.Text = "00"
Else
num = Text1.Text
div = Format(num / 2, 0)
res = num Mod 2
Text1.Text = res
Do Until div = 0
coci = div Mod 2
div = Format(div / 2, 0)
Text1.Text = Text1.Text + coci
Loop
End If
End If
End sub

P.D.: ya se que el numero binario quedaria al reves (de derecha a izquierda)

gracias

[Darksubzero]

Aqui esta una forma muy sencilla de hacerlo espero te sirva ..

Private Sub cmdConvert_Cli ck()
Dim number As Long, bin As String

number = CLng(Val(txtInput.Text)) 'assigns value of txtInput to the variable _
number of the long data type

Do While number > 0

 bin = CStr(number Mod 2) + bin
 number = Int(number / 2)
Loop

picOutput.Cls
picOutput.Prin t txtInput.Text + " es " + bin + " en binario."

End Sub

Saludos

[fantasma306]

hola,
bueno antes que nada gracias por haberme contestado ( creía que nadie me iva a contestar  )
tengo tres preguntas: - que objetos tengo que poner en el formulario
                                    - que es el picOutput.Cls (a mi me da error)
                                    - y por ultimo, si eres tan amable, me podrias explicar un poco el codigo ( por que esto de copiar y pegar sin entender lo que es... no es lo mio  )
Gracias por todo
salu2

[Krosty_ufc]

Ami tambien me gustaria que loe xpliques asi entiendo =)
Gracias
Salu2