hola a todos, voy por la tercera semana de ingieneria en computacion e informatica y nos pasaron una tarea donde debemos hacer un programa que pase de numeros a romano, y numeros a letras,llevo una casi 1 semana tratando de hacer el codigo, aqui se los presento, hay cosas que no deverian ir, pero estan porque lo he modificado cientos de veces y no me sale

Private Sub Command1_Click()

End Sub

Private Sub Text1_Change()

Dim num As Double
Dim umil As Double
Dim centena As Double
Dim resto As Double
Dim decena As Double

umil = num / 1000
resto = num Mod 1000
centena = resto / 100
resto = resto Mod 100
decena = resto / 10
unidad = resto Mod 10

Select Case umil
Case 3
umil = 3
MsgBox "MMM"

Case 2
umil = 2
MsgBox "MM"

Case 1
umil = 1
MsgBox "M"

End Select

If num >= 4000 Then
MsgBox "fuera de rango", vbCritical
End If



Select Case centena
Case 9
centena = 9
MsgBox "CM "

Case 8
centena = 8
MsgBox "DCCC"

Case 7
centena = 7
MsgBox "DCC"

Case 6
centena = 6
MsgBox "DC"

Case 5
centena = 5
MsgBox "D"

Case 4
centena = 4
MsgBox "CD"

Case 3
centena = 3
MsgBox "CCC"

Case 2
centena = 2
MsgBox "CC"

Case 1
centena = 1
MsgBox "C"

End Select








Select Case unidad
Case 9
unidad = 9
MsgBox "IX"

Case 8
unidad = 8
MsgBox "VIII"
Case 7
unidad = 7
MsgBox "VII"
Case 6
unidad = 6
MsgBox "VI"
Case 5
unidad = 5
MsgBox "V"
Case 4
unidad = 4
MsgBox "IV"
Case 3
unidad = 3
MsgBox "III"
Case 2
unidad = 2
MsgBox "II"
Case 1
unidad = 1
MsgBox "I"



End Select
End Sub

Private Sub Text2_Change()
Show num
End Sub

espero que puedan ayudarme a sacar adelante este programa, he buscado en la web pero no sale como lo estamos haciendo nosotros.