这个意思?
Dim o1 As String = e.form.controls("textbox1").textDim l2 As String = o1.Replace("", "*")msgbox(l2)