Tengo una tabla con una columda de datos de tipo texto que contiene datos
con el sig formato 10/1000/7 ó 1/10/1000 etc y necesito exportar esos datos
a otra tabla pero en una columna con datos de tipo numericos, con lo cual
debo sacarles la  / (barra).
Es decir convertir el 10/1000/7 en 1010007,  Como Hago?

Responde Bhuo:
==============
Function DamePalabra(Palabra) As String
 Dim Resultado As String
 Dim K As Integer
 For K = 1 To Len(Palabra)
  If Mid(Palabra, K, 1) <> "/" Then
   Resultado = Resultado & Mid(Palabra, K, 1)
  End If
 Next
 DamePalabra = Resultado
End Function


Y si la queremos hacer más generica, para quitar cualquier caracter:

Function DamePalabra(Palabra As String, CaracterQuitar As String) As String
 Dim Resultado As String
 Dim K As Integer
 For K = 1 To Len(Palabra)
  If Mid(Palabra, K, 1) <> CaracterQuitar Then
   Resultado = Resultado & Mid(Palabra, K, 1)
  End If
 Next
 DamePalabra = Resultado
End Function

La llamada a esta función sería:
PalabraDevuelta=DamePalabra("1000/554/2111/","/")

PERO....¿Para que hace todo esto el Bhuo si ya existe una funcion que lo hace?:
===============================================================================

TextoTransformado = Replace(TextoOriginal, "/" , "")


Pues por que el Bhuo desconocia la existencia de REPLACE, sin mas.

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)