Dim sRestTerm As String
Dim sAusdruck as string
dim lpos as long
Dim lpos2 As Long
  sAusdruck = Rechnung
  lPos = Len(sAusdruck)
    lpos2 = InStr(lPos - 1, sAusdruck, "+" Or "-")
    If lpos2 > 1 Then
    lPos = lPos - lpos2
    sRestTerm = Mid(sAusdruck, lpos2 + 1)
        If IsNumeric(sRestTerm) = True Then
        sAusdruck = Left(sAusdruck, lpos2 - 1)
        End If
    End If