Access - de access 2003 a 2007

Hola a tod@s

Añadí a mi BD la función extraer números de una cadena:

Function extraernumeros(cadena As String)

Dim n As Integer
Dim aux, aux1 As String
n = Len(cadena)
aux1 = ""
For i = 0 To n - 1

aux = Left(cadena, 1)

Select Case aux
Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"
aux1 = aux1 & aux
End Select

cadena = Right(cadena, n - i - 1)

Next

extraernumeros = Val(aux1)

End Function

En access 2003 me funciona bien pero en 2007 me da error. Como podría solucionarlo?

Espero que podais ayudarme.

Anticipadamente, gracias

A ver si acierto: http://jbchea.net/centroconfianza.aspx

Saludos
José Bengoechea Ibaceta

Muchísimas gracias, me has ahorrado muchas horas de programación