主题：[求助]代码的后半段没有执行

文字识别后，再替换识别后的不规范字符：

’文字识别
Dim doc = CreateObject("MODI.Document")
doc.Create(e.Form.Controls("TextBox1").value )
doc.OCR(2052, True, True)
For i As Integer = 0 To doc.Images.count - 1
    Dim layout = doc.images(i).Layout
    e.Form.Controls("TextBox1").value = layout.text & vbcrlf
'msgbox(layout.text)
Next i
doc.close
doc = Nothing

改成这样，执行弹出什么？

'''

'文字识别
Dim doc = CreateObject("MODI.Document")
doc.Create(e.Form.Controls("TextBox1").value )
doc.OCR(2052, True, True)
For i As Integer = 0 To doc.Images.count - 1
    Dim layout = doc.images(i).Layout
    e.Form.Controls("TextBox1").value = layout.text & vbcrlf
    'msgbox(layout.text)
Next i
msgbox(1)
doc.close
doc = Nothing

msgbox(2)
'字符替换
Dim s As String = e.Form.Controls("TextBox1").value
s = s.Replace(" ","")
s = s.Replace(".","。")
s = s.Replace("．","。")
s = s.Replace("【","[")
s = s.Replace("】","]")
s = s.Replace(":","：")
s = s.Replace(";","；")
msgbox(3)
msgbox(s)

最后再加一句代码，就行了，谢谢！

e.Form.Controls("TextBox1").value = s