Try this.
It works for me.

 

Dim editor
   Set editor = New CuteEditor
   editor.ID = "Editor1"
   editor.FilesPath = "CuteEditor_Files"
   editor.EditorBodyStyle = "font:normal 12px arial;"
   editor.EditorWysiwygModeCss = "asp.css"
   editor.SecurityPolicyFile = "Admin.config"
   editor.ThemeType = "Office2003_BlueTheme"
   editor.Height = 800
   editor.Width = 1280
   editor.Draw()

 

/S