Private Sub Command1_Click()
Dim strAux As String
Dim strAux2 As String
Dim strAux3 As String
Dim pos1 As Long
Dim pos2 As Long
Dim offset As Long

'Pongo estos valores para que se entienda
'Text1 y Text2 tiene .MultiLine en True
'Text1.Text = "Hola bienvenido" + vbCrLf + "cuando niegas algo dices NO o si? pregunta que todos nos hacemos dia a dia" + vbCrLf + "saludos"
'Text2.Text = ""
'Label1.Caption = "cuando niegas"
'Label2.Caption = "dia a dia"

'siempre conviene usar variables antes que propiedades de objetos
strAux = Text1.Text
strAux2 = Label1.Caption
strAux3 = Label2.Caption

pos1 = InStr(1, strAux, strAux2)
If pos1 <> -1 Then
    'si label1 existe en el texto1
    pos2 = InStr(1, strAux, strAux3)
    If InStr(1, strAux, strAux3) <> -1 Then
        'si label2 existe en el texto1
        If pos2 > pos1 Then
            'si label2 esta despues que label1 (dentro del texto1)
            pos1 = pos1 + Len(strAux2)
            offset = pos2 - pos1
            Text2.Text = Mid(strAux, pos1, offset)
        End If
    End If
End If
End Sub