Mostrar Mensajes
Código:
Function buscar(cadena As String, inicio As String, final As String)
Dim a As String
Dim b As String
Dim c As String
For i = 1 To Len(cadena)
c = Mid(cadena, i, Len(inicio))
If c = inicio Then
a = Mid(cadena, i + Len(inicio), Len(cadena) - Len(inicio))
End If
Next
For r = 1 To Len(a)
c = Mid(a, r, Len(final))
If c = final Then
b = Mid(a, 1, Len(a) - Len(final))
End If
Next
buscar = b
End Function
Si no lo entiendes pidelo.
En cadena pones todo el texto, en inicio pones el texto donde empezara a excluir y en final pones dodne tiene que terminar.
Salu2
) pero si te dare las bases apra que empieces. Te dare este texto que escribi en otro foro para buscar palabras en el texto.