lb = "start" rb = "end" StrString = a lbStrPosition = "" For Each StrEachTag In Split(StrString, Len(lb) - 5) If lbStrPosition = "" Then lbStrPosition = 1 Else lbStrPosition = lbStrPosition + 3 End If lbStrPosition = InStr(lbStrPosition, StrString, lb) rbStrPosition = InStr(lbStrPosition, StrString, rb) StrEnd = rbStrPosition - lbStrPosition + Len(rb) Response.Write Mid(StrString , lbStrPosition, StrEnd) NextI might be way off but if any VBScript Guru can help me I would really appreciate it.