Lines $159-164$ won't execute even if input is $1$ or $10,$ please help resolve this

Private Sub btnClose$\_$Click$($sender As Object, e As EventArgs$)$ Handles

btnClose.Click

'Close program

Me$.$Close$()$

End Sub

Private Sub btnRestart$\_$Click$($sender As Object, e As EventArgs$)$ Handles btnRestart.Click

'Reset program

txtGPA.Text $=""$

txtScore.Text $=""$

txtOutput.Visible $=$ False

radSAT$1.$Checked $=$ False

radSAT$2.$Checked $=$ False

radSAT$3.$Checked $=$ False

radSAT$4.$Checked $=$ False

radSAT$5.$Checked $=$ False

radHS$1.$Checked $=$ False

radHS$2.$Checked $=$ False

radHS$3.$Checked $=$ False

radHS$4.$Checked $=$ False

radHS$5.$Checked $=$ False

radHS$6.$Checked $=$ False

radCD$1.$Checked $=$ False

radCD$2.$Checked $=$ False

radCD$3.$Checked $=$ False

radCD$4.$Checked $=$ False

radCD$5.$Checked $=$ False

radCD$6.$Checked $=$ False

radCD$7.$Checked $=$ False

chkGeo$1.$Checked $=$ False

chkGeo$2.$Checked $=$ False

chkAlumni$1.$Checked $=$ False

chkAlumni$2.$Checked $=$ False

radEssay$1.$Checked $=$ False

radEssay$2.$Checked $=$ False

radEssay$3.$Checked $=$ False

chkLS$1.$Checked $=$ False

chkLS$2.$Checked $=$ False

chkLS$3.$Checked $=$ False

radMisc$1.$Checked $=$ False

radMisc$2.$Checked $=$ False

radMisc$3.$Checked $=$ False

radMisc$4.$Checked $=$ False

End Sub

Private Sub btnCompute$\_$Click$($sender As Object, e As EventArgs$)$ Handles btnCompute.Click

Dim dblGPA As Double

Dim dblScore As Double

Dim dblSAT As Double

Dim dblHS As Double

Dim dblCD As Double

Dim dblGEO As Double

Dim dblALUM As Double

Dim dblESSAY As Double

Dim dblLS As Double

Dim dblMISC As Double

Dim dblUncapped As Double

Dim dblCapped As Double

Dim dblTotScore As Double

'Display Error Message

dblGPA $=$ CDbl$($txtGPA$.$Text$)$

If dblGPA $<mtext\; id="EditorElement\_362855"></mtext><mn\; id="EditorElement\_362856">2</mn><mn\; id="EditorElement\_362857">.</mn><mn\; id="EditorElement\_362858">0</mn>$ Or dblGPA $>4\mathrm{.}0$ Then

txtScore.Text $=""$

txtOutput.Visible $=$ True

txtOutput.Text $=$ "GPA must be between $2\mathrm{.}0$ and $4\mathrm{.}0."$

End If

'Calculate Score

dblScore $=$ dblGPA $*20$

txtScore.Text $=$ dblScore

'Add total points

If radSAT$1.$Checked $=$ True Then

dblSAT $=$ radSAT$1.$Tag

End If

If radSAT$2.$Checked $=$ True Then

dblSAT $=$ radSAT$2.$Tag

End If

If radSAT$3.$Checked $=$ True Then

dblSAT $=$ radSAT$3.$Tag

End If

If radSAT$4.$Checked $=$ True Then

dblSAT $=$ radSAT$4.$Tag

End If

If radSAT$5.$Checked $=$ True Then

dblSAT $=$ radSAT$5.$Tag

End If

If radHS$1.$Checked $=$ True Then

dblHS $=$ radHS$1.$Tag

End If

If radHS$2.$Checked $=$ True Then

dblHS $=$ radHS$2.$Tag

End If

If radHS$3.$Checked $=$ True Then

dblHS $=$ radHS$3.$Tag

End If

If radHS$4.$Checked $=$ True Then

dblHS $=$ radHS$4.$Tag

End If

If radHS$5.$Checked $=$ True Then

dblHS $=$ radHS$5.$Tag

End If

If radHS$6.$Checked $=$ True Then

dblHS $=$ radHS$6.$Tag

End If

If radCD$1.$Checked $=$ True Then

dblCD $=$ radCD$1.$Tag

End If

If radCD$2.$Checked $=$ True Then

dblCD $=$ radCD$2.$Tag

End If

If radCD$3.$Checked $=$ True Then

dblCD $=$ radCD$3.$Tag

End If

If radCD$4.$Checked $=$ True Then

dblCD $=$ radCD$4.$Tag

End If

If radCD$5.$Checked $=$ True Then

dblCD $=$ radCD$5.$Tag

End If

If radCD$6.$Checked $=$ True Then

dblCD $=$ radCD$6.$Tag

End If

If radCD$7.$Checked $=$ True Then

dblCD $=$ radCD$7.$Tag

End If

If chkGeo$1.$Checked $=$ True Then

dblGEO $=$ chkGeo$1.$Tag

End If

If chkGeo$2.$Checked $=$ True Then

dblGEO $=$ chkGeo$2.$Tag

End If

If chkGeo$3.$Checked $=$ True Then

dblGEO $=$ chkGeo$3.$Tag

End If

If chkAlumni$1.$Checked $=$ True Then

dblALUM $=$ chkAlumni$1.$Tag

End If

If chkAlumni$2.$Checked $=$ True Then

dblALUM $=$ chkAlumni$2.$Tag

End If

If radEssay$1.$Checked $=$ True Then

dblESSAY $=$ radEssay$1.$Tag

End If

If radEssay$2.$Checked $=$ True Then

dblESSAY $=$ radEssay$2.$Tag

End If

If radEssay$3.$Checked $=$ True Then

dblESSAY $=$ radEssay$3.$Tag

End If

If chkLS$1.$Checked $=$ True Then

dblLS $=$ chkLS$1.$Tag

End If

If chkLS$2.$Checked $=$ True Then

dblLS $=$ chkLS$2.$Tag

End If

If chkLS$3.$Checked $=$ True Then

dblLS $=$ chkLS$3.$Tag

End If

If radMisc$1.$Checked $=$ True Then

dblMISC $=$ radMisc$1.$Tag

End If

If radMisc$2.$Checked $=$ True Then

dblMISC $=$ radMisc$2.$Tag

End If

If radMisc$3.$Checked $=$ True Then

dblMISC $=$ radMisc$3.$Tag

End If

If radMisc$4.$Checked $=$ True Then

dblMISC $=$ radMisc$4.$Tag

End If

'Calculate total points for top half

dblUncapped $=$ dblSAT $+$ dblHS $+$ dblCD

'Calculate total points for bottom half options

dblCapped $=$ dblGEO $+$ dblALUM $+$ dblESSAY $+$ dblLS $+$ dblMISC

If dblCapped $>=40$ Then

dblCapped $=40$

End If

dblTotScore $+=$ dblScore $+$ dblCapped $+$ dblUncapped

If dblTotScore $>=100$ Then

txtOutput.Visible $=$ True

txtOutput.Text $=$ "Total Points: $"$ & dblTotScore & $"$ Admitted!"

Else

txtOutput.Visible $=$ True

txtOutput.Text $=$ dblTotScore & $"$ Rejected"

End if

Here is a picture of the correct output