[Resolvido]Remover letras

Gostaria de executar um consulta onde remova de um campo da tabela as letras existentes e deixe somente os número. Como posso fazer isso? Alguma dica?

Update Tabela Set Campo = ExtrairNumeros(Campo)

Código:

Function ExtrairNumeros(ref As String) As String

Dim x, y As Long
Dim Num As String

For x = Len(ref) To 1 Step -1
    If IsNumeric(Mid(ref, x, 1)) Then
        y = y + 1
        Num = Mid(ref, x, 1) & Num
    End If
    If y = 1 Then Num = CInt(Mid(Num, 1, 1))
Next x

ExtrairNumeros = Num

End Function

Antes, faz um backup.

Perfeito, resolvido. obrigado Cláudio.

obrigado!

De nada, disponha.