This tip can be used as a Select Case statement with a MsgBox statement. Because a variable is not used to hold the response, adding one or more handles for response is easy. The statement renders a simple overview of the function of the code. Here is an example:
Select Case MsgBox("Error ocured:" + vbCrLf + vbCrLf + Err.Description, vbAbortRetryIgnore) Case vbRetry Resume Case vbIgnore Resume Next Case vbAbort Resume Main_Exit Case Else MsgBox "Unknown response." End Select
Compare this to the other style:
Dim lRespons As VbMsgBoxResult lRespons = MsgBox("Error ocured:" + vbCrLf + vbCrLf + Err.Description, vbAbortRetryIgnore) If lRespons = vbRetry Then Resume ElseIf lRespons = vbIgnore Then Resume Next ElseIf lRespons = vbAbort Then Resume Main_Exit Else MsgBox "Unknown response." End If