Public Function metinTemizle(metin As String, Optional ilk As String = "[", Optional son As String = "]") As String

On Error GoTo Err_hata



    Dim intIlk, intSon As Integer

    Dim strSil As String

    

    intIlk = InStr(1, metin, ilk)

    intSon = InStr(intIlk, metin, son)

    strSil = Mid(metin, intIlk, intSon - intIlk + 1)

    

    metin = Replace(metin, strSil, " ")



Exit_kod:

    metinTemizle = metin

    Exit Function



Err_hata:

    

    result = ""

    MsgBox Err.Description

    Resume Exit_kod

End Function

bunun ile "ahmet[xxx]geldi"  metnini "ahmet geldi" haline çeviriyor
bunu metin içindeki tüm köşeli parantezler için nasıl uygulayabilirz