Option Explicit
Dim mText As String
Dim mTextlaenge As String
Dim i As Integer
Dim i2 As Integer
 
Dim mPosition1 As Integer
Dim mPosition2 As Integer
 
 
Function FunktionUebersetzen(mText As String)
 
'Anmerkung:
'[text] Nur Klammern entfernen
'[+text] Klammer un +-Zeichen entfernen
'[-text] Klammer mitsamt Inhalt entfernen
 
mTextlaenge = Len(mText)
 
 
For i = 1 To mTextlaenge 
 
    If Mid(mText, i, 2) = "[+" Then
 
     mPosition1 = i
 
     For i2 = i To mTextlaenge
 
     If Mid(mText, i2, 1) = "]" Then
 
     mPosition2 = i2
 
     Mid(mText, mPosition1, 2) = ""
     Mid(mText, mPosition2, 1) = ""
 
     End If
 
     Next i2
 
    End If
 
 
    If Mid(mText, i, 2) = "[-" Then
 
     mPosition1 = i
 
     For i2 = i To mTextlaenge
 
     If Mid(mText, i2, 1) = "]" Then
 
     mPosition2 = i2
 
     Mid(mText, mPosition1, mPosition2 - mPosition1) = ""
 
     End If
 
     Next i2
 
    End If
 
 
    If Mid(mText, i, 1) = "[" Then
 
     mPosition1 = i
 
     For i2 = i To mTextlaenge
 
     If Mid(mText, i2, 1) = "]" Then
 
     mPosition2 = i2
 
     Mid(mText, mPosition1, 1) = ""
     Mid(mText, mPosition2, 1) = ""
 
     End If
 
     Next i2
 
    End If
 
 
Next i
 
 
FunktionUebersetzen = mText
 
End Function
 
 
 
 
 
Private Sub btnUebersetzen_Click()
txtZiel.Text = FunktionUebersetzen(txtQuelle.Text)
End Sub