Quitar de una cadena los caracteres indicados

Esta función recibe dos cadenas, la primera es la que se quiere procesar y la segunda los caracteres que se quieren quitar de la primera, ésta última al ser opcional, si no se indica se asume que son los caracteres: punto, coma y espacio.

Public Function QuitarCaracter(ByVal sValor As String, Optional sCaracter) As String
Dim i As Integer
Dim j As Integer
Dim sTmp As String
'Si no se especifican los caracteres a quitar
If IsMissing(sCaracter) Then
sCaracter = "., "       'Para números
End If
sTmp = ""
For i = 1 To Len(sValor)
If InStr(sCaracter, Mid$(sValor, i, 1)) = 0 Then
sTmp = sTmp & Mid$(sValor, i, 1)
End If
Next
QuitarCaracter = sTmp
End Function

Ejemplo:
sRet = QuitarCaracter(“Hola Mundo”, “Mundo “)
Devolverá: “Hla”
No es un fallo, es que comprueba los caracteres uno a uno.

Fuente: www.elguille.info