Sinan Dayı gecikme için kusura bakma valla bi türlü fırsatım olmadı :)
Su Damlacıkları Anaokulu için Hazırladığım tasarım yayında...
Private Sub Command1_Click()
On Error Resume Next
veri = RichTextBox1.Text
veri = Replace(veri, """", "`")
While Not InStr(veri, " kucukyeri = InStr(veri, " buyukyeri = InStr(veri, "/span>")
silinecekveri = Mid(veri, kucukyeri, buyukyeri - kucukyeri + 6)
veri = Replace(veri, silinecekveri, "")
Wend
RichTextBox2.Text = veri
End Sub