Metinden İstediğimiz Bir Kısmı Diğer Metin Kutusuna Aktarmak

Evet mantıklı gözüküyor

şunun içini nasıl doldurabiliriz

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

On Error GoTo Err_hata

    

    metin = "temiz metin"

    





Exit_kod:

    metinTemizle = metin

    Exit Function



Err_hata:

    

    result = ""

    MsgBox Err.Description

    Resume Exit_kod

End Function

Iyi de köşeli parantezler nerede?

Optional ilk As Byte = "[", Optional son As Byte = "]"

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)

    

    metin = Replace(metin, strSil, "")

şöyle yazılsa nasıl olur

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