la cosa piu' conveniente e' mettere in un array le frasi che vuoi eliminare, poi usare la replace, cosi'

codice:
For iCnt = LBound(sArray) To UBound(sArray)
   sStringaHtml = Replace(sStringaHtml, sArray(iCnt), "")
Next