Umwandlung einer Zahl in arabisch

Function wird eine römische Zahl in eine arabische Zahl umgewandelt:

Function RomToArab(r As String) As Integer
Dim p As Integer
Dim z As String
If Len(r) = 1 Then      '1. Basisklausel
Select Case r
Case "I"
RomToArab = 1
Case "V"
RomToArab = 5
Case "X"
RomToArab = 10
Case "L"
RomToArab = 50
Case "C"
RomToArab = 100
Case "D"
RomToArab = 500
Case "M"
RomToArab = 1000
End Select
ElseIf Len(r) = 0 Then  ' 2. Basisklausel
RomToArab = 0
Else                    ' rekursive Klausel
search_max r, z, p
RomToArab = RomToArab(z) - _
RomToArab(Mid(r, 1, p - 1)) + _
RomToArab(Mid(r, p + 1, 1000))
End If
End Function


Wenn ich jetzt in E2 die Formel =RomToArab(F2) eintrage, dann sollte, wenn in der Zelle eine römische VIII eingetragen ist, in E2 eine 8 eingetragen werden. Funktionierte bis jetzt tadellos. Jetzt bekomme ich auf einmal die Fehlermeldung #NAME? was ich nicht ganz verstehe, weil ja bisher alles funktioniert hatte.

Was könnte hier bitte der Fehler sein?

Danke

Josef