Ciclo for

Ciao a tutti, sono alle primissime armi con il Vb.net e ho provato a scrivere questo ciclo for dove i valori vengono presi da due textbox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hcp_part As Single, score As Integer
        hcp_part = Convert.ToSingle(TextBox1.Text)
        score = Convert.ToInt16(TextBox2.Text)
        If score < 32 Then
            Dim hcp_new As Single = hcp_part + 0.1
            TextBox3.Text = hcp_new
        ElseIf score >= 32 And score <= 36 Then
            TextBox3.Text = hcp_part
        ElseIf score > 36 Then
            Dim i As Integer
            Dim hcp_new As Single
            For i = 37 To score
                If hcp_part <= 6 Then
                    hcp_new = hcp_part - 0.2
                ElseIf hcp_part > 6 And hcp_part < 13 Then
                    hcp_new = hcp_part - 0.3
                ElseIf hcp_part >= 13 Then
                    hcp_new = hcp_part - 0.5
                End If
            Next
            TextBox3.Text = hcp_new
        End If
    End Sub

Il problema è che la variazione della variabile hcp_part viene fatta una sola volta.
In pratica vorrei questo: supponiamo che hcp_part sia 15,5 e score sia 38. Allora hcp_new dovrebbe venire 14,5 (cioè dovrebbe togliere 0,5 per due volte e non una sola). Spero di essere stato chiaro e che qualcuno possa aiutarmi!