Select Case par
Case 0
objt.innerhtml=replace(objt.innerhtml,"¶" ,"")
Case 1,5
if par=1 then
 devmsgbox=Msgbox("Вставить строку до ? ",36,"Спрашиваю")
else
 devmsgbox=Msgbox("Вставить строку после ? ",36,"Спрашиваю")
end if
j=0
if devmsgbox=6 then
' f.elements("html").value=tagn  // поместим новый тег
' f.elements("vvv").click()      // выполним
end if
Case 4
devmsgbox=Msgbox("Вставить список ? ",36,"Спрашиваю")
if devmsgbox=6 then
 'tagn=replace(tagn,"¶" ,"") 
 'f.elements("html").value=tagn  // поместим новый тег
 'f.elements("vvv").click()      // выполним
end if
Case 6
devmsgbox=Msgbox("Удалить список ? ",36,"Спрашиваю")
if devmsgbox=6 then
 'tagn=replace(tagn,"¶" ,"") 
 'f.elements("html").value=tagn  // поместим новый тег
 'f.elements("vvv").click()      // выполним
end if
Case 3
devmsgbox=Msgbox("Удалить строку ? " ,36,"Спрашиваю")
if devmsgbox=6 then
' f.elements("html").value=tagn  // поместим новый тег
' f.elements("vvv").click()      // выполним
end if
End Select
