Caixa de Seleção

alguem pode me dar um help com esta condição da caixa de seleção, quando eu clico mostra corretamente que é desmamado mas, qdo eu tiro a seleção nao mostra a msg 'nao e desmamado"??? o que esta errado obrigada.

private Sub Seleção174_Click()
If edesmamado = False Then 'Isto é, se estiver selecionado
MsgBox "Sim é Desmamado !!!", vbInformation, "Teste" 'Ou seja, está marcada
else
msgBox "Não é Desmamado !!!", vbInformation, "Teste" 'Ou seja, nao está marcada
End If
End Sub

Olá... tente assim...

If edesmamado =-1 then
MsgBox "Sim é Desmamado !!!", vbInformation, "Teste" 'Ou seja, está marcada
elseif edesmamado = 0 then
msgBox "Não é Desmamado !!!", vbInformation, "Teste" 'Ou seja, nao está marcada
End If
End Sub

Coloquei no evento: ao clicar, ainda nao deu certo????