eliminar caracteres especiales de un txt

[ARGFA]

buenas.... muchas gracis por tu aporte. ya logre resolverlo. aqui adjunto el codigo.

Código vb:

Function reemplazarTexto(textoCompleto As String, textoBuscar As String, textoReemplazar As String) As String
  Dim resultado As String
  
  resultado = Replace(textoCompleto, textoBuscar, textoReemplazar, , , vbTextCompare)
  reemplazarTexto = resultado
End Function
 
Private Sub Command1_Click()
Dim Contenido As String
 
Open "D:\Documents and Settings\fromero\Desktop\argenis\argenis cuidamed\archivos\Archivo.TXT" For Input As #1
    
    'Lee todo los datos del archivo y lo almacena en la variable
    Contenido = Input$(LOF(1), #1)
    
    'Cierra el archivo abierto
    Close #1
 
 
'Dim NumPro As String
'Contenido = "22++33++1+1233+"
Contenido = reemplazarTexto(Contenido, "#", "")
Contenido = reemplazarTexto(Contenido, ",", "")
Contenido = reemplazarTexto(Contenido, "-", "")
Contenido = reemplazarTexto(Contenido, ".", "")
Contenido = reemplazarTexto(Contenido, " ", "")
Contenido = reemplazarTexto(Contenido, """", "")
 
Open "D:\Documents and Settings\fromero\Desktop\argenis\Archivo.TXT" For Output As #1
            Print #1, Contenido
            Close #1
'Print Contenido
 
 
End Sub