Tag System - Up The Swanie

In the alien breed CP code.zip, in inc\utils.bb there's a function called readitem.

Function readitem$(filename$,item$)
	filein = ReadFile(filename)
	ret$ = "?Null?"
	lin$ = ""
	item = Lower(item)
	Repeat
		l$ = Lower(ReadLine(filein))
		lb = Instr(l$,"<"+item+">")
		rb = Instr(l$,"</"+item+">")
		If lb>0 And rb>0
			lb = lb + Len("<"+item+">")
			ret= Mid(l,lb,rb-lb)
		EndIf
	Until Eof(filein)
	CloseFile filein
	Return ret$
End Function

Have a read and see it this helps.