VBA - Bloqué à 4??? Len

Bonjour,

Function F(ByVal x As Long) As Long
Dim y As Long

y = CStr(x)
F = Len(y)
End Function

Quand je rentre F(x) dans excel, cela me donne toujours 4, peu importe la valeur de x!!!