Dim i
For i = 1 to 10
If MsgBox("Hello world " & i & vbcrlf & "Nog eens?", vbYesNo) = vbNo Then Exit For
Next