Макрос VBA, который задает вопросы на основе ответа пользователя

Question

В настоящее время я работаю над программой, основанной на определенной причине, макрос задает пользователю определенные вопросы, основанные на ответе пользователя, например, если сценарий - Прерывание дохода, и пользователь отвечает утвердительно на определенный вопрос, который он будетзадать конкретный вопрос, и если они нажимают нет, он задаст другой вопрос.У меня проблема в том, что я не уверен, как заставить это работать более чем для одного сценария.Я думаю, у меня это работает, но есть еще 5 сценариев.Любая помощь приветствуется!

Спасибо

В настоящее время я использую отдельные случаи.

Sub ShortTerm()
Dim Ret_type As Integer
Dim that As Variant
Ret_type = MsgBox("Are you receiving EI or other source of funds?", vbYesNoCancel)
Select Case Ret_type
Case 6  'if yes
    that = MsgBox("Are funds readily accessible?", vbYesNoCancel)
     Select Case that
    Case 6  'if yes
            that = MsgBox("Can you make payment arrangements today?", vbYesNoCancel)
            Select Case that
            Case 6 'if yes
            that = MsgBox("Can you make payment  today?", vbYesNoCancel)
            Case 7 'if no
            that = MsgBox("Can you make payments before next due date?", vbYesNoCancel)
            Case 2 'if cancel
            MsgBox "Sure"
            End Select
    'MsgBox "Reason for arrears?"
Case 7  'if no
    that = MsgBox("Template Recommends: Waive Payments, Cards Hardship, Loan/RCL RAP'S")
    End Select
    Select Case that
    Case 6  'if yes
            that = MsgBox("Can you make payment arrangements today?", vbYesNoCancel)
    Case 7  'if no
        that = MsgBox("Collector Documents on CACS", vbYesNoCancel)
    Case 2  'if cancel
        MsgBox "You clicked 'CANCEL' button."
    End Select
     'MsgBox "Can you make a payment arrangement?"
Case 2  'if cancel
    MsgBox "You clicked 'CANCEL' button."

End Select
End Sub