WorksheetFunction.Arabic (Excel)
Converte um numeral romano em um numeral arábico.
Arabic (Arg1)
Arg1: O numeral romano que você deseja converter.
Dim strArg1 As String: strArg1 =
Dim dblArabic As Double
dblArabic = WorksheetFunction.Arabic(Arg1:=strArg1)