VB菜鸟提问!关于select case语句!

大侠帮我看看这段代码怎么就运行不了??输入"+'和两个输入数,点击按钮后,text4.text就是出不来东西!谢谢!
dim a,b,c,d
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Text2.Text
c = Val(Text3.Text)
Select Case b
Case "+"
d = a + c
Case "*"
d = a * c
End Select
Text4.Text = d
End Sub

--------------------编程问答-------------------- a,b,c,d 
根本就不是一个类型的 --------------------编程问答-------------------- 我也是菜鸟 说错了别见怪
是否应该先声明ABCD这四个变量的种类？
如果各变量类型不同 是否应该先转换成相同的类型的 然后再进行计算？
.
--------------------编程问答-------------------- dim a,b,c,d 
这个是什么意思？
VB.Net不支持万用类型的，和VB6.0不一样。 --------------------编程问答-------------------- 代码在VB6.0中没有问题

补充：.NET技术 ,  VB.NET