Используй тэги в названиях объектов.
Function CheckTag$(var$,tag$)
Local tmp_l1,tmp_l2
If Not Instr(var,"["+tag+"]") Then Return "0"
If Not Instr(var,"[/"+tag+"]") Then
Return "1"
Else
tmp_l1 = Instr(var,"["+tag+"]") + Len("["+tag+"]")
tmp_l2 = Instr(var,"[/"+tag+"]") - tmp_l1
Return Mid(var,tmp_l1,tmp_l2)
End If
End Function
Понимает тэги вида [test] (возвращает "0" или "1") и [test]10[/test] (возвращает то, что внутри тэга)