Problemas al calcular

Tengo problemas con este codigo del boton CALCULAR, el formulario se genera
muy bien pero no calcula, es un proyecto de VB 6, que estoy desarrollando en
VSTUDIO 2005, a qui les en envio el codigo del Boton CALCULAR a ver si me lo
corrigen y gracias por su ayuda:


Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonCalcular.Click
precio = Val(TextBoxSalida.Text)
cantidad = Val(TextBoxCantidad.Text)
subtotal = Codigo * cantidad
'Proceso
If (Codigo = "A") Then Monto = cantidad * 23.5
If (Codigo = "B") Then Monto = cantidad * 32.0
If (Codigo = "C") Then Monto = cantidad * 52.5
If (Monto > 500) Then
descuento = Monto * 0.1
Else
descuento = 0
End If
total = Monto - descuento

If (subtotal >= 1000) Then
descuento = (subtotal * 0.1) : igv = (subtotal - descuento) * 0.18
End If
If (subtotal < 1000) Then
descuento = (subtotal * 0.05) : igv = (subtotal - descuento) * 0.18
End If
total = (subtotal - descuento) + igv
TextBoxSalida.Text = "El Subtotal es :" + Str(subtotal) + vbCrLf &
"El descuento es :" + Str(descuento) + vbCrLf & "El I.G.V. es :" + Str(igv) +
vbCrLf & "El Total a pagar es:" + Str(total)

End Sub


ESTAS SON LAS DECLARACIONES:

Dim precio As Integer, cantidad As Integer
Dim subtotal As Integer, descuento As Integer
Dim igv As Integer, menor As Integer
Dim total As Double
Dim Monto As Double
Dim Codigo As String

GRACIAS