[Iska]

В общем, смотрите:

Код:

Sub Sample()
    Dim arrStrings(5, 5) As String
    Dim i As Integer, j As Integer
    
    Dim objRegExp As New RegExp
    
    …
    …
    …
    
    objRegExp.Pattern = "/.*?/" ' Или "/.+?/" для непустого шаблона.
    
    For i = LBound(arrStrings, 1) To UBound(arrStrings, 1)
        For j = LBound(arrStrings, 2) To UBound(arrStrings, 2)
            Do While objRegExp.Test(arrStrings(i, j))
                arrStrings(i, j) = objRegExp.Replace(arrStrings(i, j), "")
            Loop
        Next j
    Next i
End Sub