Nesting MSGBOX

[Jake975]

Im trying to get nesting MSGboxes to work? Not sure what im doing wrong I have tried several ways. Can you please help
This is what i currently have and i know it doesn't work as is

Sub MsgBoxInfo()

  Dim answer As Integer
  Dim answer2 As Integer
  Dim answer3 As Integer
  
  answer = MsgBox("The process will now get all related files." & vbNewLine & "If the process is stopped here nothing will be chaanged.", vbYesNoCancel + vbInformation)
  If answer = vbYes Then
  Call Get_Files_Information
  If answer = vbNo Then
  Else
  answer2 = MsgBox("Do Temp?", vbYesNo)
  If answer2 = vbYes Then
  Call MsgBoxInfo1
  If answer2 = vbNo Then
  Else
  answer3 = MsgBox("Merge file?", vbYesNo)
  If answer3 = vbYes Then
  Call MsgBox_3
  If answer3 = vbNo Then

  Else
  End If
  End If
  End If
End Sub

 

[dmt32]

Hi
try

Sub MsgBoxInfo()
    
    Dim answer As VbMsgBoxResult
    
    answer = MsgBox("The process will now get all related files." & vbNewLine & _
    "If the process is stopped here nothing will be changed.", vbYesNo + vbInformation)
    
    If answer = vbYes Then
        Call Get_Files_Information
    Else
        answer = MsgBox("Do Temp?", vbYesNo + vbQuestion, "Do You Temp")
        If answer = vbYes Then
            Call MsgBoxInfo1
        Else
            answer = MsgBox("Merge file?", vbYesNo + vbQuestion, "Merge File")
            If answer = vbYes Then Call MsgBox_3
        End If
    End If
End Sub

Dave