Vorzeichen wieder Löschen

Private Sub Plus_minus_Click()
Eingabe = "-"
If Anzeige Like ("-*") Then
'MsgBox ("Das geht doch nicht!"), vbCritical, "Fehler" ???????
Else
Call Ausgeben1
End If
End Sub
Sub Ausgeben1()
Anzeige = Eingabe & Anzeige
TextBox1 = Anzeige
End Sub