VB solicitando código de programación

Dim?s?As?Integer

If?Combo1.Text?=?" Moderno"?Entonces

s= Val(Texto1.Text)?*?40

Si?s?gt;?1000?Y?s?lt;?1500?Entonces?s?=?s?*?0.05

Si?s?gt; =?1500?Y?s?lt;?2000?Entonces?s?=?s?*?0.1

Si?s?gt =?2000? Entonces?s?=?s?*?0.15

Else

s?=?Val(Text1.Text)?*?30

Si?s ?gt;?1000?Y?s?lt;?1500?Entonces?s?=?s?*?0.05

Si?s?gt; =?1500?Y?s?lt;? 2000?Entonces?s?=?s?*?0.1

Si?s?gt; =?2000?Entonces? =?2000?Entonces?s?=?s?*?0.15

Fin?Si

Label2.Caption?=?"¿Ropa?precios:?" programas bien hechos. . . .