Modifier un opérateur dans le code via un formulaire! Possible?!

Private Sub CommandButton3_Click()
  If ComboBox1 = "" Or TextBox1 = "" Or TextBox2 = "" Then Exit Sub
  Dim x As Variant
  Dim y As Variant
  Dim Operateur As String
  Dim Evaluation As Boolean
  x = TextBox1
  y = TextBox2
  Operateur = ComboBox1
  Select Case ComboBox1
  Case "="
    If x = y Then Evaluation = True Else Evaluation = False
  Case "<"
    If x < y Then Evaluation = True Else Evaluation = False
  Case ">"
    If x > y Then Evaluation = True Else Evaluation = False
  Case "<="
    If x <= y Then Evaluation = True Else Evaluation = False
  Case ">="
    If x >= y Then Evaluation = True Else Evaluation = False
  Case "<>"
    If x <> y Then Evaluation = True Else Evaluation = False
  End Select
  If Evaluation = True Then
    MsgBox "C'est vrai, j'te le dis!"
  Else
    MsgBox "C'est faux, vraiment! :P"
  End If
End Sub

If Val(TextBox1) > 0 Then ' On teste si c'est une valeur numérique (. décimal) Mettre cdbl à la place de val si , décimale)
    operation = "=" & TextBox1 & Operateur & TextBox2
Else
    operation = "=" & Chr(34) & TextBox1 & Chr(34) & Operateur & Chr(34) & TextBox2 & Chr(34)
End If
Evaluation = Evaluate(operation)

If Evaluate("=" & x & Operateur & y) Then