Allora, l'ho riscritta così, ho fatto un pò di prove e sembra funzionare

codice:
Private Sub cdAll_Click()
Dim i As Integer
Dim tot As Integer
tot = 0
For i = 1 To 3
    If (Me.Controls("cb" & i) = -1) Then
    tot = tot + 1
    End If
Next i
For i = 1 To 3
    If tot = 0 Then
    Me.Controls("cb" & i) = -1
    Else
    Me.Controls("cb" & i) = 0
    End If
Next i
End Sub
però, anche solo ad intuito, ho la netta sensazione che sia scritta da "cani".
Se avete soluzioni più eleganti e immagino proprio di sì, fatemi sapere.
Io intanto continuo a smanettarci per conto mio.