Amigos ojala a los que tiene conocimiento avanzado en este lenguaje le sirva esta FUNCION Función para reemplazar una cadena de texto dentro de otra - Visual Basic Lenguaje de programación Visual Basic Esta función de Visual Basic permite reemplazar una cadena de texto dentro de otra. Utiliza la función "replace" de Visual Basic 6. A continuación os mostramos el código fuente en Visual Basic la función: 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 Un ejemplo de utilización: ... Dim NumPro as String 'quitamos el signo "+" NumPro = reemplazarTexto(NumPro, "+", "") 'cambiamos la "," por "." NumPro = reemplazarTexto(NumPro, ",", ".") molProtocolo.Value = NumPro molTransmitente.Value = TraNom molAdquirente.Value = AdqNom ... El resultado será, en el primer caso, si la variable "NumPro" tiene algún carácter "+" será eliminado, pues lo reemplazamos por "" (vacío). En el segundo caso, la función reemplazará todos los caracteres "," de la variable "NumPro" por ".". BUENO AMIGOS OJALA LES SIRVA ESTE APORTE Como siempre agradecimientos a Ajdsoft
