' cadena por ejemplo se le pasa -32,40 €
Public Function soloNumeros(cadena As String) As String
Dim n As Integer
Dim sCadena As String
For n = 0 To Len(cadena)
If IsDigit(cadena[n]) Or If cadena[n] = "." Or If cadena[n] = "," Or If cadena[n] = "-" Then sCadena &= cadena[n]
Next
Return IIf(sCadena = "", "0", sCadena)
End