los pasos para un cuestionario

Private Sub CommandButton1_Click()
Dim puntos As Integer
If OptionButton1 = True Then
puntos = puntos + 20
End If
If OptionButton5 = True Then
puntos = puntos + 20
End If
If OptionButton10 = True Then
puntos = puntos + 20
End If
MsgBox ("el resultado es" + Str(puntos))
End Sub