Хотя Джон Лин спросил, что ты спрашиваешь об этом, мне не терпится ответить на этот пост.Я тоже новый пользователь, и это первый вопрос, на который мне достаточно легко ответить.Поэтому я надеюсь, что я не пересекаю черту здесь, но вот мой ответ, который работал для меня:
Sub HowManyClicks()
Dim numberOfClicks As Integer
Dim title As String
Dim question As String
Dim answer As VbMsgBoxResult
title = "How many (c)licks"
question = "Are you at the center?"
answer = vbNo
Do
answer = MsgBox(question, vbQuestion + vbYesNo, title)
numberOfClicks = numberOfClicks + 1
Loop While answer = vbNo
MsgBox "it took" & Str(numberOfClicks) & " (c)licks", , title
End Sub