Calculo De Bases Distintas

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/36.htm
Módulo de clase que permite convertir números a base Binario, decimal y Hexadecimal

El módulo tiene trespropiedades :
• Número : es el número a convertir
• DeBase : Base del número ( debe ser un Binario, Decimal o Hexadecimal )
• ToBase : Base a la que se va a convertir el número en cuestión ( Binario,Decimal o Hexadecimal )
El método o función que convierte el número es el método "Convertir " , por ejemplo :

MsgBox .Convertir("El número a converir ", "La base", "Base a converir"), vbInformationEjemplo

• Agregar en un formulario un control CommandButton
• un módulo de clase

Código fuente en el formulario
Texto planoImprimir
1. Option Explicit
2.
3. Dim clsConvert As NewClass1
4.
5. Private Sub Command1_Click()
6.
7. With clsConvert
8.
9. ' Inputobx para el número a convertir
10. .Numero = InputBox(" Ingrese el numero aconvertir ")
11.
12. If .Numero = "" Then Exit Sub
13. ' base del número ( DEcimal - binario o Hexadecimal )
14. .DeBase = InputBox("Ingrese la base delnumero que ingresó :" & _
15. " Binario = 2, Decimal = 10, o Hexadecimal = 16")
16. If .DeBase = 0 Then Exit Sub
17.
18. 'diálogo para especificar la base de la conversión _
19. ( binario - decimal o hexadecimal -)
20.
21. .tobase = InputBox("Ingrese el numero de la " & _22. "base a convertir : Binario = 2, " & _
23. "Decimal = 10, o Hexadecimal = 16")
24.
25. If .tobase =0 Then Exit Sub
26.
27. ' este método Convierte el número y muestra el resultado
28. MsgBox .Convertir(.Numero, .DeBase, .tobase), vbInformation
29....