Option Explicit
 
Dim QuellText As String, ZielText As String
 
 
Function Ersetzen(mText As String)
Dim tPos1 As Long
Dim tPos2 As Long
Dim mText1 As String
Dim mText2 As String
 
 
Do
tPos1 = 0
tPos2 = 0
tPos1 = InStr(mText, "[-")
If tPos1 > 0 Then
tPos2 = InStr(tPos1, mText, "]")
mText1 = Left(mText, tPos1 - 1)
mText2 = Right(mText, Len(mText) - tPos2)
mText = mText1 + mText2
End If
Loop Until tPos1 = 0
 
 
mText = Replace(mText, "[+", "")
mText = Replace(mText, "[", "")
mText = Replace(mText, "]", "")
 
Ersetzen = mText
 
End Function
 
 
Private Sub Command1_Click()
 
QuellText = "1234567890[+asdfghjk]987654321 & 1234567890[-asdfghjk]987654321 &" & _
  "1234567890[asdfghjk]987654321"
 
ZielText = Ersetzen(QuellText)
 
Debug.Print ZielText
 
End Sub