vb text 删除指定内容

Dim aa() As String, bb As String
aa = Split(Text1, vbCrLf)
For i = 0 To UBound(aa)
If InStr(aa(i), "aaa") = 0 Then bb = bb & aa(i) & vbCrLf
Next
Text1 = bb
这个是删除TEXT里包含AAA行的内容， 如果删除多个类型的怎么改？ 比如删除AAA和删除BBB"aaa""bbb") 这样好像不行

---

Private Sub Command1_Click()
text1 = Replace(text1, "BBB"敬袭, "高稿缓戚模")
End Sub

---