A loan calculator has to be created for the proNetBank. Method of  processing the loan is as follows:Vehicle loan is given for a period of three to seven years depending  on the customers preference. the current interest rate is 20% per  annum. The minimum loan amount is lkr 500,000 and the maximum loan  amount is 7,000,000 , in addition maximum that could be obtained also  depends on the category of the vehicle as below.Brand new or unregistered vehicles. Up to 100% of the vehicle value -vehicles within 6 years of 1st registration. Up to 85% of vehicle value hybrid brand new and unregistered vehicles within 2 years of  manufacturing. Up to 85% of the vehicle value.The application should  obtain the necessary inputs using appropriate controls and calculate  and display the installment value.So I wrote my code:Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles rbVeh5yrs.CheckedChanged    If rbVeh5yrs.Checked = True Then        txtBorrow.Visible = True        lblBorrowingAmount.Text = Enter the amount you want to borrow    Else        txtBorrow.Visible = False        lblBorrowingAmount.Text =     End IfEnd SubPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click    If txtBorrow.Text =  Then        MessageBox.Show(Pls Enter the amount you want to borrow)    Else        intBorrow = txtBorrow.Text        If intBorrow < 500000 Then            MessageBox.Show(Lowest Amount which can be borrow is RS.500000)        ElseIf intBorrow > 7000000 Then            MessageBox.Show(Maximum amount which can be borrowed is RS.7000000)        End If    End If    intBorrow = txtBorrow.Text    If rbVeh5yrs.Checked = True Then        decVehicle = intBorrow * 0.8        decInterestPay = (decVehicle + (decVehicle * 0.2 * decYear))        decInstallment = decInterestPay / decMonthly        lblMonthlyPayment.Text = Monthly Installments  & decInstallment    End If    If rbBN.Checked = True Then        decVehicle = intBorrow        decInterestPay = (decVehicle + (decVehicle * 0.2 * decYear))        decInstallment = decInterestPay / decMonthly        lblMonthlyPayment.Text = Monthly Installments  & decInstallment    End If    If rbHybrid.Checked = True Then        decVehicle = intBorrow * 0.8        decInterestPay = (decVehicle + (decVehicle * 0.2 * decYear))        decInstallment = decInterestPay / decMonthly        lblMonthlyPayment.Text = Monthly Installments  & decInstallment    End IfEnd SubPrivate Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles rbBN.CheckedChanged    If rbBN.Checked = True Then        txtBorrow.Visible = True        lblBorrowingAmount.Text =  Enter the amount you want to borrow     Else        txtBorrow.Visible = False        lblBorrowingAmount.Text =     End IfEnd SubPrivate Sub rbHybrid_CheckedChanged(sender As Object, e As EventArgs) Handles rbHybrid.CheckedChanged    If rbHybrid.Checked = True Then        txtBorrow.Visible = True        lblBorrowingAmount.Text = Enter the amount you want to borrow    Else        txtBorrow.Visible = False        lblBorrowingAmount.Text =     End IfEnd SubPrivate Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click    Close()End SubPrivate Sub rb3Years_CheckedChanged(sender As Object, e As EventArgs) Handles rb3Years.CheckedChanged    If rb3Years.Checked = True Then        decYear = 3        decMonthly = 36    End IfEnd SubPrivate Sub rb4Years_CheckedChanged(sender As Object, e As EventArgs) Handles rb4Years.CheckedChanged    If rb4Years.Checked = True Then        decYear = 4        decMonthly = 36    End IfEnd SubPrivate Sub rb5Years_CheckedChanged(sender As Object, e As EventArgs) Handles rb5Years.CheckedChanged    If rb5Years.Checked = True Then        decYear = 5        decMonthly = 48    End IfEnd SubPrivate Sub rb6Years_CheckedChanged(sender As Object, e As EventArgs) Handles rb6Years.CheckedChanged    If rb6Years.Checked = True Then        decYear = 6        decMonthly = 60    End IfEnd SubPrivate Sub rb7Years_CheckedChanged(sender As Object, e As EventArgs) Handles rb7Years.CheckedChanged    If rb7Years.Checked = True Then        decYear = 7        decMonthly = 72    End IfEnd SubCan you check it and tell me whether it is good enough? If there is room for improvement, please let me know.
Vehicle Loan Calculator
vb.net;finance