Programa que asigna la bonificacion de un asesor de finca raiz

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim ventas As Integer

        Dim comision As Decimal

        Dim bono As Integer

        Dim salario As Integer

        salario = 400000

        ventas = txtventas.Text

        If (ventas >= 1000000) And (ventas < 5000000) Then

            comision = ventas * 0.1

            txttotal.Text = salario + comision + bono

            txtcomision.Text = comision

        End If

        If (ventas >= 5000000) And (ventas < 10000000) Then

            comision = ventas * 0.2

            txttotal.Text = salario + comision + bono

            txtcomision.Text = comision

        End If

        If (ventas > 10000000) Then

            comision = ventas * 0.3

            txttotal.Text = salario + comision + bono

            txtcomision.Text = comision

        End If

        If (optbaja.Checked = True) Then

            bono = 50000

            txttotal.Text = salario + comision + bono

            txtcomision.Text = comision

        End If

        If (optalta.Checked = True) Then

            bono = 20000

            txttotal.Text = salario + comision + bono

            txtcomision.Text = comision

        End If

    End Sub

programa hecho en visual studio
lenguaje:  .net