怎样从文本框中取得我要的字符串

dim i as long,j as long
i=instr（1,text1.text,"<div class=""kenodraw"">")
do while i>0
    j=instr（i+22,text1.text,"</div>")
    if j=0 then exit do
    debug.print mid$（text1.text,i+22,j-i-22)

    i=instr（j+6,text1.text,"<div class=""kenodraw"">")
loop

private sub command1_click（)
mystr = "<div class=""kenodraw"">"
a = split（text1.text, mystr)
b = split（a（2), "</div>")
text2.text = b（0)
end sub