Below is the code: (A work in progress)

Private Sub calculate_Click()
If fp01 = 1 Then fp01x = 175
If fp01 = 2 Then fp01x = 170
tpr01 = fp01x
If ll01.Value = Checked Then tpr01 = tpr01 + 5
If lml01.Value = Checked Then tpr01 = tpr01 + 5
*tp01 = per01 + tpr01
End Sub

Private Sub Form_Load()
Dim per01 As Integer
Dim fp01 As Integer
Dim tpr01 As Integer
Dim tp01 As Integer
Dim fp01x As Integer
End Sub

The lines with problems are marked with an astrick (*)