This is a sledghammer approach to get them

[vba]

tmp = ""
For i = 1 To Len(cell.Value)

If IsNumeric(Mid$(cell.Value, i, 1)) Then

tmp = tmp & Mid$(cell.Value, i, 1)
End If
Next i
cell.Value = Val(tmp)
[/vba]

Regular Expressions would probably be better.