Cortar una frase

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!!!