Dim sAusdruck As String
  Dim sTemp     As String
  Dim sOperator As String
  Dim lPos1     As Long
  Dim lpos2     As Long
  sAusdruck = "Das ist ein Text mit -1234,22"
 
  ' Position des vielleicht vorhandenen +
  lPos1 = InStr(1, sAusdruck, "+", vbTextCompare)
  ' Position des vielleicht vorhandenen -
  lpos2 = InStr(1, sAusdruck, "-", vbTextCompare)
  If lPos1 > lpos2 Then
    ' Das + kam zuerst, also
    sOperator = "+"
  ElseIf lPos1 < lpos2 Then
    ' Das - kam zuerst, also
    sOperator = "-"
    lPos1 = lpos2
  End If
 
  sTemp = Mid(sAusdruck, lPos1 + 1)
  If IsNumeric(sTemp) Then
    Debug.Print "Operator: " & sOperator
   Debug.Print "Betrag: " & CDbl(sTemp)
  End If