Cómo obtener cadena de texto?

[HJ ~]

Hola, tengo un texto en VB (text1) y en él hay un texto, por ejemplo "hola, me llamo HJ", lo que me gustaría es que, mediante una función, poder obtener el trozo de texto que yo quiera, por ejemplo, me gustaría poder coger el fragmento de texto que pone entre "me" y "HJ" entonces obtendría el valor "llamo"

Es muy sencillo de hacer pero ahora mismo no se me ocurre como hacerlo, he probado con InStr y Mid pero nada, me peta todo

Alguna ayudita?

Gracias!

[bizco]

pon el codigo que tienes, split en este caso igual te resulta mas sencillo.

[Maik33]

Puedes seleccionar el texto y almacenarlo en una variable.

Ejemplo:

Código (vb) [Seleccionar] Expandir


Dim Cadena As String

Private Sub Command1_Click()
    Text1.SelStart = 9
    Text1.SelLength = Len("llamo")
    Cadena = Text1.SelText
    Me.Print Cadena
End Sub

Private Sub Form_Load()
    Text1.Text = "Hola, me llamo HJ"
End Sub

o:

Código (vb) [Seleccionar] Expandir


Private Sub Command2_Click()
     Me.Print ObtenerCadena(Text1, 9, Len("llamo"))
End Sub

Private Sub Form_Load()
     Text1.Text = "Hola, me llamo HJ"
End Sub

Private Function ObtenerCadena(Text As TextBox, Start As Integer, Longitud As Integer) As String
     Text.SelStart = Start
     Text.SelLength = Longitud
     ObtenerCadena = Text.SelText
End Function


[Psyke1]

http://foro.elhacker.net/programacion_visual_basic/src_funcion_textbetweenwords_by_psyke1-t295259.0.html

Salu2!