Да / Нет Кнопка VBA Excel.Функция if-else не работает

Question

Я пытаюсь добиться того, чтобы при нажатии да отображалась первая форма пользователя, если нет , то у другого пользователя должно отображаться:

Private Sub btnDataSecurity_Click()

Question = MsgBox("Is this client specific", vbYesNo)

If vbYes Then

With DBUnilever
    .StartUpPosition = 2
    .Top = (Application.Height / 2)
    .Left = (Application.Width / 2)
    .Show
End With
Unload Me

Else

With DataBreach
    .StartUpPosition = 2
    .Top = (Application.Height / 2)
    .Left = (Application.Width / 2)
    .Show
End With

End If

Unload Me

End Sub

Функция if-else у меня не работает. Я не знаю, что пошло не так. Может кто-нибудь помочь мне с этим?

Answer 1

Рекомендуется заменить:

If vbYes Then

на:

If Question = vbYes Then

(могут быть другие ошибки в размещенном коде)

Answer 2

Как сказал ученик Гэри, вы должны заменить: If vbYes Then на If Question = vbYes Then.Поскольку вы опубликовали весь Sub, а Dim для Question нет, убедитесь, что вы объявляете его (как Integer, потому что это тип возврата MsgBox) перед его использованием.