New To Excel UserForms and tried to guess at format of ToggleButton VBA

What did I do wrong?

Private Sub ToggleButton1_Click()
If ToggleButton1.Caption = YES Then
ToggleButton1.Caption = NO
ToggleButton1.Value = False
End If
If ToggleButton1.Caption = NO Then
ToggleButton1.Caption = YES
ToggleButton1.Value = True
End If
End Sub