Private Sub Text1_Change()
  Dim vErg As Variant
 
   If Text1.Text = "" Then Exit Sub
   On Error Resume Next
   vErg = ScriptControl1.Eval(Text1.Text)
   If Err.Number > 0 Then
      Err.Clear
      Exit Sub
   End If
   Text1.Text = vErg
   Text1.SelStart = Len(Text1.Text)
End Sub