Programación vb universitaria

El código para implementar estos requisitos es el siguiente:

Subcomando privado 1_Click()

precio = Val(Text1.Text)

Si precio gt = 200 y precio lt500 Entonces precio = precio * 0,97

Si precio gt= 500 y precio lt1000 entonces precio = precio * 0,95

Si precio gt= 1000 y precio lt2500 entonces precio = precio * 0,92

p>

Si precio gt = 2500 y precio lt5000 entonces precio = precio * 0,9

Si precio gt = 5000 entonces precio = precio * 0,86

Texto 2 . text=precio

Conector final