Ver originalPrivate Sub cmdCommandButton_Click() CommonDialog.ShowOpen If CommonDialog.FileName <> Empty Then MsgBox CommonDialog.FileNameEnd Sub