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