Removing something inbetween two strings

[|2eM!x]

Okay, say text box1 is like this:

Create Animated Emoticons in Your Chats! Get MSN Messenger.
			
Audi S4
View Pictures, Specs & Detailed Info about the 2005 Audi S4
			
Find a Birth Month & Year
Over 100 Million Birthdays Search by Name. Free Search.
			
Clan/Guild Skins
Custom and pre-made skins available with an easy to use portal design

(an example)
and lets say i wanted to replace everything except these two parts...without splitting by vbcrlf:

Create Animated Emoticons in Your Chats! Get MSN Messenger.

Audi S4
View Pictures, Specs & Detailed Info about the 2005 Audi S4

i know its mid, but how do i find the letters number?example would be nice

[manavo11]

Mid$ with InStr :

Dim iPos As Integer
    
    iPos = InStr(1, Text1.Text, "Find a Birth Month & Year")
    
    MsgBox Mid$(Text1.Text, 1, iPos - 1)

[Pradeep1210]

This function removes everything from OriginalString between String1 & String2

Function RemoveX(ByVal OriginalString As String, ByVal String1 As String, String2 As String) As String
    Dim i As Long, j As Long
    i = InStr(OriginalString, String1) + Len(String1)
    RemoveX = Left(OriginalString, i)
    i = InStr(i, OriginalString, String2)
    RemoveX = RemoveX & Mid(OriginalString, i)
End Function
 
Private Sub Command2_Click()
    ''Use it like this
    MsgBox RemoveX("That was a very good example", "was", "good")
End Sub

[prophecy]

well.. if u knw wat the exact string is u can also use replace function like...

Replace("That was a very good example","That was","")

it replaces it with a blank string.. equivalent to removing it