MsgBox Simple

Dim Ret_type As Integer

Dim strMsg As String

Dim strTitle As String

' Dialog Message

strMsg = "Are you waiving Rental Tax?"

' Dialog's Title

strTitle = "Company"

'Display MessageBox

Ret_type = MsgBox(strMsg, vbYesNoCancel + vbQuestion, strTitle)

' Check pressed button

Select Case Ret_type

Case 6

Dim Ret_typeA As Integer

' Dialog Message

strMsgA = "You clicked 'YES' button. You are about to initiate the Rental Tax Waive process"

' Dialog's Title

strTitleA = "Company"

'Display MessageBox

Ret_typeA = MsgBox(strMsgA, vbYesNo)

Select Case Ret_typeA

Case 7

Close #1

Exit Sub

End Select

Case 7

MsgBox "You clicked 'NO' button. You are about to initiate the Misc Tax Waive process"

Close #1

Exit Sub

Case 2

Close #1

Exit Sub

End Select