Algoritmo de Excel Optionbutton

Private Sub CommandButton1_Click()
Dim puntos As Integer
If OptionButton4 = True Then
puntos = puntos + 20
End If
If OptionButton5 = True Then
puntos = puntos + 20
End If
If OptionButton15 = True Then
puntos = puntos + 20
End If
If OptionButton20 = True Then
puntos = puntos + 20
End If
If OptionButton24= True Then
puntos = puntos + 20
End If
If OptionButton29 = True Then
puntos = puntos + 20
End If
If OptionButton33 = True Then
puntos = puntos + 20
End If
If OptionButton37 = True Then
puntos = puntos + 20
End If
If OptionButton42 = True Then
puntos = puntos + 20
End If
If OptionButton45 = True Then
puntos = puntos + 20
End If
If OptionButton50= True Then
puntos = puntos + 20
End If
If OptionButton53= True Then
puntos = puntos + 20
End If
If OptionButton56= True Then
puntos = puntos + 20
End If
If OptionButton60= True Then
puntos = puntos + 20
End If
If OptionButton63= True Then
puntos = puntos + 20
End If
If OptionButton67 = True Then
puntos = puntos + 20
End If
If OptionButton72= True Then
puntos = puntos + 20
End If
If OptionButton77= True Then
puntos = puntos + 20
End If
MsgBox ("tu resultado es de: " + Str(puntos))
End Sub