Copying/searching with a variable range!!

I think this will kind of do what you want, although I'm not sure what the +5 lines bit refers to.

Sub macro_1()
MSC6 = "sdfaultsfkasdfMSC6asdofnasdklnsdMSC6aosdkfaultnfasldkcMSC6asdf"
first_MSC = Strings.InStr(1, MSC6, "MSC6")
last_MSC = 0
pos_count = Strings.Len(MSC6)
Do Until Not last_MSC = 0
    pos_count = pos_count - 1
    last_MSC = Strings.InStr(pos_count, MSC6, "MSC6")
Loop
Fault_loc = Strings.InStr(first_MSC, Strings.Left(MSC6, last_MSC), "fault")
copy_Data = Strings.Mid(MSC6, first_MSC, last_MSC - first_MSC + 4)
End Sub

Hi, the +5 line means that i don't want the search to end at the final MSC6,, i want it to search till after 5 lines of the last occurrence of MSC6. hey and can you guide me through this code of yours, i don't seem to get it. Thanks

Ok, so the first step is to assing the string you want to look at to the variable MSC6, I made something up as an example.

Then I use Instr to find the first occurance of "MSC6" in the string assinged to the variable. The arguements for Instr are the character to start looking at, the string to look in, and the string to look for.

I then use Len to find the length of the string and loop through it backwards, so I start looking for "MSC6" using Instr but with the character to start looking at being the last character of the string, and moving back one character at a time until it finds it, which gives me the last occurence.

Then I use Instr to find "fault", starting at the location of the first occurance of MSC6, and looking ni the string but using left() to only look at the first so many characters, defined by the last occurance of MSC6.

Finally I use mid() to copy the middle section of the string between the first and last occurences of MSC6.