hola q tal Txoco sabes bueno me intereso la respuesta y es lo quiero utilizar en mi sistema final, lo q apsa es q yo quiero sacar es el texto de la derecha por ejm: pres01, solo quieor sacar el numero uno.
peor lo q yo ingresare es mediante una caja de texto y lo quiero es mandar el contenido de esa caja de texto a una bd, osea solo la parte q quiero q s emande mediante una cadena ojala me puedas ayudar
entendi la logica q presentas en el codigo pero aun desconosco las funciones q se utilizan no se si me podrias ayudar, solo quisiera me corrigas si es asi
Código:
Public Function RightToString(ByVal wExpression As String, ByVal wFind As String, Optional ByVal wStart As Long = 1) As String
Dim i As Long
i = InStr(wStart, wExpression, wFind, vbTextCompare)
If i > 0 Then RightToString = Right(wExpression, i + 1)
End Function