Seleccionar parte de un texto (inicio y fin)

[erbuson]

Hola:

Para ello puedes utilizar por ejemplo esta funcion

Código vb:

Private Sub Command1_Click()
MsgBox CadenaEntre("Hola, bienvenidos a forosdelweb.com, la mejor página.", "bien", ".com")
End Sub
 
Public Function CadenaEntre(Cadena As String, Desde As String, Hasta As String) As String
  Dim Inicio As Integer, Final As Integer
  ' Buscamos donde empieza el texto inicial
  Inicio = InStr(Cadena, Desde)
  ' Si no la encuentra sale de la funcion sin devolver nada
  If Inicio = 0 Then Exit Function
  ' Buscamos donde empieza el texto final
  Final = InStr(Inicio + 1, Cadena, Hasta)
  ' Si no la encuentra sale de la funcion sin devolver nada
  If Final = 0 Then Exit Function
  ' Devuelve el dato buscado
  CadenaEntre = Mid$(Cadena, Inicio, Final + Len(Hasta) - Inicio)
End Function