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)