求助：VB中textarea赋值，搞不定啊

原写法：
　　　Web1.Document.All.Item("title").Value = "6" '信息标题
     Web1.Document.All.Item("users").Value = "http://www.XX.com" '价格说明
     Web1.Document.getElementsByName("Chrcontent")(1).innerHTML = "http://www.XX.com"    '供应数量
　　　textarea　不能赋值．不能激活．．．

原码：
  <form name="form1" method="post" action="?action=addSave" onsubmit="return checkform(this)" >
<table border="0" cellpadding="1" cellspacing="1" class="table" width="100%">
    <tr>
        <td class="tditem" style="width:15%;"><span style="color:Red">*</span> 标题：</td>
        <td class="tdcontent" style="width:85%;" ><input name="title" type="text" class="text" size="40">
           <span>请正确输入文章标题</span> </td>

    </tr>
<tr>
        <td class="tditem"> 来源：</td>
        <td class="tdcontent" ><input name="chrcome" type="text" size="20"  class="text" value=""><input name="intorder" type="hidden" id="orders" size="10" value="1165" >
            </td>
    </tr>
<tr>
        <td class="tditem"><span style="color:Red">*</span> 作者：</td>
        <td class="tdcontent" ><input name="users" type="text" size="20"  class="text" value="佚名">
            <span></span></td>
    </tr>
<tr>
        <td class="tdcontent" colspan=2>内容：<br><textarea cols="80" id="Chrcontent" name="Chrcontent" rows="10"></textarea>
　</td>
    </tr>
</table>
<div class="submit"><input type="hidden" name="gotourl" value="http://www.116hz.com/article/">
<input type="submit" name="Submit" value=" 确认无误，提交 " id="Submit" />  <input type="button" value=" 返回 " onclick="javascript:location.href='myarticle.aspx';" />
    </div>
</form>

补充：VB ,  控件