that's code for editor:

Dim editor
        Set editor = New CuteEditor
        editor.ID = "Message"
        editor.FilesPath = "includes/CuteEditor_Files/"
        editor.BreakElement = "Br"
        editor.ImageGalleryPath = "/Upload0708/"
        editor.MaxImageSize = 500
        editor.XHTMLOutput = true
        editor.EditorBodyStyle = "font-family: Arial; font-size: small; font: 10pt"
        editor.ThemeType = "Office2003"
        editor.AutoConfigure = "Simple"
        editor.CustomCulture = "he-IL"
        editor.EditorOnPaste = "PasteWord"
        editor.Width = 650
        editor.Height = 300
        editor.UseHTMLEntities = False
        if txtMsg <> "" then editor.Text = txtMsg
        editor.Draw()