1、加入判断,比如
If mc3.count > 0 Then
Dim s3 As String = mc3(0).value
'后续代码
End If
2、其余的调试,你自行测试,要学会看懂代码、自己调试啊 http://www.foxtable.com/webhelp/scr/1485.htm