Programa para calcular el descuento segun su consumo.

la siquiente es la programacion:

Private Sub Command1_Click()

If Text1.Text < 500000 Or Text1.Text > 300000 Then
    Text2.Text = Text1.Text * 0.1
    Text3.Text = Text1.Text - Text2.Text
Else
Text2.Text = 0
Text3.Text = Text1.Text - Text2.Text
 End If

 If Text1.Text > 1000000 Then
 Text2.Text = Text1.Text * 0.2
    Text3.Text = Text1.Text - Text2.Text
  Else
Text2.Text = 0
Text3.Text = Text1.Text - Text2.Text


End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Private Sub Command3_Click()
End
End Sub