ML089

¦^´_ 1# VBALearner

Sub ex()
    Do
    a = MsgBox(a, 3)
    If a = 2 Then Exit Do
    Loop
End Sub
'±`¼Æ ­È ´y­z
'vbOK 1 OK
'vbCancel 2 Cancel
'vbAbort 3 Abort
'vbRetry 4 Retry
'vbIgnore 5 Ignore
'vbYes 6 Yes
'vbNo 7 No