Textbox Like = "=" False

Private Sub CommandButton1_Click()
Dim stxt As String
stxt = TextBox1
If Left(TextBox1, 1) Like "=" = False Then
Cells(1, 1) = "=" & TextBox1.Value
End If
End Sub

Private Sub TextBox1_Change()
Dim sWert As String
With TextBox2
On Error GoTo Err
sWert = Application.Substitute(TextBox1, ",", ".")
sWert = IIf(Left(TextBox1, 1) = "=", sWert, "=" & sWert)
.Value = Application.Evaluate(sWert)
.Value = Format(.Value, "#,##0.000")
Label1.Caption = ""
End With
Exit Sub
Err:
Label1.Caption = "Formel nicht vollständig!"
End Sub