Hola,
Necesito cortar una frase cuando llegue la palabra normativa que siempre está después.
Pongo un ejemplo de una frase.
"3ANEXO 18 AL CONVENIO SOBRE AVIACION CIVIL normativa/1 Convenios internacionales"

En este caso solo me quiero quedar con la palabra:

3ANEXO 18 AL CONVENIO SOBRE AVIACION CIVIL

Siempre es igual, aparece la palabra normativa/

Gracias.

Usa la funcion InStr() para localizar lacadena deseada...
Esta funcion te retorna en que posicion inicia la misma, o 0 (cero) si no se encuentra la misma ...

'''''''
Dim sFraseCompleta As String
Dim sFraseParcial As String
Dim nCol As Integer

sFraseCompleta = "3ANEXO 18 AL CONVENIO SOBRE AVIACION CIVIL normativa/1 Convenios internacionales"

nCol = InStr(1, sFraseCompleta, "normativa")

If nCol > 0 Then
sFraseParcial = Mid(sFraseCompleta, 1, nCol - 1)
Else
sFraseParcial = sFraseCompleta
End If

'''''''''

Saludos ...

Muchisimas gracias, funciona guay!!!

Perdona, y para quedarte con la frase despues de lo que le quitao, como por ejemplo
"normativa/1 Convenios internacionales"
Es que no se si te has fijao que es una ruta, entonces quiero mostrar el primer cacho, dentro de un msflexgrid y cuando le cliquee en el primer cacho "3ANEXO 18 AL CONVENIO SOBRE AVIACION CIVIL " me vaya a la ruta "normativa/1 Convenios internacionales".

Muchisimas gracias otra vez!!!

Prueba a ver si este ejemplo te resuelve el problema

Código:

Dim sFraseCompleta As String
Dim sParteIzquierda As String
Dim sParteDerecha As String
Dim a() As String
Dim sSeparador As String
sFraseCompleta = "3 ANEXO 18 AL CONVENIO SOBRE AVIACION CIVIL normativa/1 Convenios internacionales"
sSeparador = "normativa"
a = Split(sFraseCompleta, sSeparador)
sParteIzquierda = a(0)
sParteDerecha = sSeparador & a(1)
MsgBox sParteIzquierda
MsgBox sParteDerecha

Saludos

Funciona muy bien!!!
Muchisimas gracias!!!