Function xBol(Mtn As String) As String

Dim DiziMtn() As String

Mtn = Replace(Mtn, "]", "[")

DiziMtn = Split(Mtn, "[")

xUst = UBound(DiziMtn)

If xUst = 0 Then

    xBol = ""

    Exit Function

End If

For x = 0 To 7 Step 2

    xBol = xBol & DiziMtn(x)

Next x



End Function

modüle ekleyeceğiniz yukardaki fonksiyon işe yarayabilir, tabi isterseniz argüman kısmına opsiyonel olarak "[","]" parantezlerini de ekleyebilirsiniz