一句语法不知道如何写了 达人来 送分

一句语法不知道怎么写了 达人来 送分
MSHFlexGrid1绑定Adodc

With   MSHFlexGrid1
即时显示新添加的数据
If   i   > =   .Rows   Then
.AddItem   .Rows
.TextMatrix(.Rows   -   1,   2)   =   Text1(0).Text
End   if
End   With

以上没有问题   先想让MSHFlexGrid1字段2内容按****密码格式显示，改为

With   MSHFlexGrid1
即时显示新添加的数据
If   i   > =   .Rows   Then
.AddItem   .Rows
.TextMatrix(.Rows   -   1,   2)   =   "   &   String(Len(Text1(1).Text(密码), " "* " "))
End   if
End   With
但无效果，不知道那错了或该为=   format(Text1(1).Text)或passwoedchar=*吗？

请达人帮忙

------解决方案--------------------
.TextMatrix(.Rows - 1, 2) = String(Len(Text1(1).Text), "* ")