哪位高手帮我看看下面的程序有什么不对！！

是一个关于任意输入数据和操作符进行运算的程序Private Sub Command1_Click()
Select Case (Trim(Text3.Text))
Case "+"
Text4.Text = Val(Text1.Text) + Val(Text2.Text)
Case "-"
Text4.Text = Val(Text1.Text) - Val(Text2.Text)
Case "*"
Text4.Text = Val(Text1.Text) * Val(Text2.Text)
Case "/"
If Val(Text2.Text) = 0 Then
MsgBox "除数不能为0！"
Exit Sub
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
Case Else
MsgBox "运算有误,请检查！！"
End Select

End Sub
为什么老是提示Case Else在select case外！！怎么修改啊？？？

哪位高手帮我看一下下面的程序 哪位大大能帮我看看下面的程序错在哪啊，拜托了，急着要！ 有哪位高手帮我翻译下面的文章？ 看看下面的程序请高手帮我解答下思路 谢谢 急求：哪位高手帮我解释下面的一段ASP程序是什么意思！ 急求：哪位高手能够帮我解释下面的一段javascript程序？ 哪位英语高手帮我看看下面的作文怎么写好吗 谢谢 哪位高手帮我看看下面的代码如何修改字体？ 有哪位高手帮我看看这个 哪位高手帮我看看这个JAVA程序