怎么判断Combo1.Text内容为空?

If Len(Combo1.Text) = 0 Then
MsgBox "内容输入错误!"
End If
这样子比较保险一些，你的If没有Endif，还有用""不能保证不出错，有些情况下（以前好像遇到过，不过时间长记不清了）用""会出错的。

If Combo1.Text = "" Then
MsgBox "内容输入错误!"
Exit Sub

应该是
If Combo1.Text = "" Then
你的" " 多了个空格了

if trim(combo1.text)="" then
msgbox "内容输入错误"
exit sub
end if