Checkbox to deselect another checkbox, shorter code

Good evening folk

I'm building a userform which will contain some checkboxes, this is the code I have put into it and it works well

Private Sub cbact1_Click()
    If cbact1.Value <> 0 Then
        cbact2.Value = 0
        cbact3.Value = 0
    End If
End Sub
Private Sub cbact2_Click()
    If cbact2.Value <> 0 Then
        cbact1.Value = 0
        cbact3.Value = 0
    End If
End Sub
Private Sub cbact3_Click()
    If cbact3.Value <> 0 Then
        cbact1.Value = 0
        cbact2.Value = 0
    End If
End Sub

What I would like to ask is,,, is there a better way to build this code and make it shorter..... or must I use three private subs

Many thanks