LISTING 4: Code to Handle a Specific Error

Sub ShowNameOfFolderHandleError()
    Dim objFolder As MAPIFolder
    
    Set objFolder = UserPickFolder()
    If objFolder Is Nothing Then 
        MsgBox "You forgot to pick a folder." 
    Else
        MsgBox objFolder.Name
    End If 
    
    Set objFolder = Nothing
End Sub