Conversor Numerico Decimal-Octal en Visual Basic 6

Aqui os dejo el metodo mas facil de programar un conversor numerico usando como ejemplo el Decimal-Octal y tambien os dejo el Link de Descarga de Microsoft Visual Basic 6 (Portable).

Link de descarga: http://localhostr.com/files/aba80e/Vb6.zip

Codigo del Programa:

Agrega un label, un boton y un textbox y este codigo:

Private Sub Command1_Click()
numero = Val(Text1.Text)
Do
resultado = Fix(numero / 8)
residuo = numero Mod 8
octa = residuo & octa
numero = resultado
Loop Until resultado = 0
Label1 = octa

End Sub

*Vale para convertir a cualquier base solo hay que cambiar el numero 8 por la base que desees convertir.*