Eu estava experimentando caixas de mensagem e tentei uma simples caixa de mensagens sim / não. Então, escrevi esse código simples. No entanto, a variável "chc" sempre retorna como 1, independentemente do botão que eu pressionar. Eu forneci o código, para que você possa ver o que fiz de errado. Provavelmente está terrivelmente errado.

If MsgBoxResult.Yes Then
    chc = 1
ElseIf MsgBoxResult.No Then
    chc = 0
End If

MsgBox(chc)