Pastebin

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MemberBasic.Checked = True
    End Sub
    Private Sub MonthlyPoints_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MonthlyPoints.TextChanged
        On Error Resume Next
        If MemberBasic.Checked = True Then
            If MonthlyPoints.Text < 75 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.05
                RewardPoints.Text = Math.Round(a:=Equation)
            ElseIf MonthlyPoints.Text > 75 And MonthlyPoints.Text < 149.99 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.075
                RewardPoints.Text = Math.Round(a:=Equation)
            ElseIf MonthlyPoints.Text >= 150 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.1
                RewardPoints.Text = Math.Round(a:=Equation)
            End If
        ElseIf MemberStandard.Checked = True Then
            If MonthlyPoints.Text < 150 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.06
                RewardPoints.Text = Math.Round(a:=Equation)
            ElseIf MonthlyPoints.Text >= 150 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.13
                RewardPoints.Text = Math.Round(a:=Equation)
            End If
        ElseIf MemberPremium.Checked = True Then
            If MonthlyPoints.Text < 200 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.07
                RewardPoints.Text = Math.Round(a:=Equation)
            ElseIf MonthlyPoints.Text >= 200 Then
                Dim Equation As Integer = MonthlyPoints.Text * 0.15
                RewardPoints.Text = Math.Round(a:=Equation)
            End If
        End If
    End Sub
End Class