Преобразование натуральных чисел, записанных в римской нумерации, в десятичную систему счисления - VB

Function RimToDec(ByVal R As String)
For i = 1 To Len(R)
  Select Case UCase(Mid$(R, i, 1))
  Case "I": s = 1
  Case "V": s = 5
  Case "X": s = 10
  Case "L": s = 50
  Case "C": s = 100
  Case "D": s = 500
  Case "M": s = 1000
  Case Else: RimToDec = " ERROR ": Exit Function
  End Select
  If p < s Then s = s - p * 2
  p = s
  RimToDec = RimToDec + s
Next i
End Function
 
Sub Command1_Click()
MsgBox RimToDec(InputBox("Введите римское число:"))
End Sub