WorksheetFunction.Arabic (Excel)

Converts a Roman numeral to an Arabic numeral.

Arabic (Arg1)

Arg1: The Roman numeral that you want to convert.

Dim strArg1 As String: strArg1 = 
Dim dblArabic As Double
dblArabic = WorksheetFunction.Arabic(Arg1:=strArg1)