新人学习制作袖珍计算机 求解惑

在VB中可以用SELECT语句编一个简易计算机的程序
Private Sub Command1_Click()
a = Text3.Text
Select Case a
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 "/"
Text4.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub
然后我想用IF语句可以么？怎么转换？