adding multiple messgeboxes values to single messagebox in vba

Question

I have this code with me where i can display the message when every outer loop ends. I want to catch all these messages in suppose array or soome list like structure and then at

Answer 1

instead of calling msgboxes, create a String and keep adding the messages - at the end of code msgbox(yourString)

for example decalare a string before the main sub

Dim yourFinalMessage As String ' or Dim yourFinalMessage$

instead of

MsgBox "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

say

yourFinalMessage = yourFinalMessage & vbCrLf & & _ 
             "No Appointments items in " & objNavFolder.DisplayName & "'s folder"

keep doing this until the loop ends.

at the end of loop say

msgbox YourFinalMessage