vb 关于商品折扣问题

下面是我设计的一个vb程序 代码如下 a表示在商场消费的金额 用inputbox输入到text1 里面，再把打折后的输入text2 里面，但是当a的值大于32767时，就出现错误了，提示实时错误6，溢出.. 难道是因为我定义的是Integer吗？我去了也好像不对，希望高手们能帮我解答，能给出正确的答案，我就是想在a输入的值不受到限制...不会出现错误6.
<br>
<br>ps：也许我这个问题比较简单，我是初学者....
<br>
<br>Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
<br>
<br>rivate Sub Command1_Click()
<br>If a &gt;= 0 And a &lt; 1000 Then
<br>b = a
<br>Text2 = b
<br>Else
<br>    If a &gt;= 1000 And a &lt; 2000 Then
<br>    c = a * 0.9
<br>    Text2 = c
<br>    Else
<br>      If a &gt;= 2000 And a &lt; 3000 Then
<br>      d = a * 0.8
<br>      Text2 = d
<br>      Else
<br>        If a &gt;= 3000 Then
<br>        e = a * 0.7
<br>        Text2 = e
<br>        Else
<br>        End If
<br>      End If
<br>   End If
<br>End If
<br>End Sub
<br>
<br>rivate Sub Text1_Click()
<br>Strs1 = "请输入你已消费的金额" + Chr(13) + Chr(10) + "然后单击确定"
<br>a = InputBox(Strs1, "输入购物金额", , 100, 100)
<br>Text1 = a
<br>End Sub

------------