Enter code with Arabic numerals instead of Roman numeral

[Visor]

I dear friends of the forum, I have a reference sheet HRef where income units in Roman numerals,
The order is Subject, code subject (default), Unit (in Roman), code unit (this want to be transformed into Arabic number on the label lbCodUnidAsig) I should submit consecutively in the "O" column (# 15).
How do I get to be transformed from Roman to Arabic numerals?
Thanks for your help
I upload the file to be seen

 

[chirayu]

https://blogs.technet.microsoft.com...h-convert-numbers-to-and-from-roman-numerals/
https://www.extendoffice.com/documents/excel/1769-excel-convert-numbers-to-roman-numerals.html

 

[Visor]

Thank Chirayu, but not functions
Look:

Although I would like a code in macro for the userform as the file I uploaded

 

[Visor]

Now, on the sheet, using formulas passed from Roman to Arabic numerals with this:

=NUMERO.ARABE(B2)

but in the macro, particularly for the concatenated label to the example file, as you would?

 

[Visor]

example:
This is bad code but is only example:

Me.LbCodeUnidAsign.Caption = LbCodeAsign.Caption & "-U" & Format(Formula = "=NUMERO.ARABE(CbxUnid.value, "000")")

error!!!!

 

[Visor]

Hi
it works to pass roman

Sub GetNumeroRomano()
    Dim d As Long
    d = 22
    MsgBox Evaluate("=ROMAN(" & d & ")")
End Sub

but to pass Arabic, does not work

Sub GetNumeroArabe()
    Dim d As String
    d = "II"
    MsgBox Evaluate("=NUMERO.ARABE(" & d & ")")
End Sub

does not work
MsgBox Evaluate("=ARABIC(" & d & ")")

does not work
MsgBox Evaluate("=ARABE(" & d & ")")

other suggestions?